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E DEIXE COMPUTADOR CP 400 COU 

FAZER O RESTO. 
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que possibilita maior agilidade e facilidade de operacao. 

Conheca e teste o CP 400 Color II. Qualidade CP. Tecnologia Prologica. 

Caracteristicas Tecnicas: • Teclado profissional • Porta de comunicacao 
RS-232, para ter acesso a toda a Rede Nacional de Telematica e ligacao a im- 
pressora serial • Memoria total 64K • Saidas para monitor e TV em cores • 
Permite 2 joysticks simultaneos e analogicos. 
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EDITORIAL 




O 



Brasil passa por urn grande momento historico, nao so 
economico ou politico, mas, principalmente, de uma nova 
mentalidade social, onde direitos e deveres de todos os 
cidadaos tern de ser respeitados. Entre estes direitos, que 
Geragao Prologica nao abre mao, esta o desenvolvimento 
tecnologico da industria nacional de informatica e o acesso 
as informagoes da evolugao cientifica a todos os usuarios da 
computagao. 



Por isso, a partir deste numero, publicamos artigos que 



o. 



demonstram o potencial e a versatilidade do 
microprocessador 6809, que, por sua vez, possibilitam o 
intertaceamento do CP 400 Color atraves de uma visao 
panoramica dos Pinos de Controle da CPU. Mais do que 
isso, adequando-nos as exigencies do mercado, entramos na 
Geragao 16 bits da Prologica, que permite a mais completa 
mtegragao de hardware e software. 

Vivemos em tempos de responsabilidade; por isso, Geragao 
Prologica, alem de publicar as informagoes do setor, 
continua aberta a todas as diividas e reclamacoes de seus 
leitores atraves da segao Cartas e Clube CP's. 
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6809, a evo 
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ucao em microprocessado- 
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1, 2, 13 e 14 



Maior capacidade de armazc- 
namento e processamento de 
dados, comunicacao com to- 
dos os computadores, mterli- 
eacao em redes computacio- 
naisepossibilidadedeautoma- 

cao administrativa e industrial. 
Estassaoalgumasdascaracte- 

risticas da nova geracao de 
computadores Prologica: a de 

16 bits. 



CLIP INFORMATICA, o software ra- 

diofonico 8e9 

CP 400 Color controla campeonato de 

boliche i 

Consorcios entram na era da infor- 
m 'it'ca 15 




No Encarte Especial, um prograrna 
emocionante para o CP 400 Color, onde 
voce podera participar de seu proprio 
campeonato de boliche. Mas, se voce e 
roqueiro, nao se preocupe: seu compu- 
tador fara os logotipos das bandas mais 
importantes do mundo. Para aqueles 
que preferem a matematica, um progra- 



rna educativo para resoluca 
triangulos. 
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Caros aminos, e com imensa saiisfa- 
cao que lhes escrevo. Sou assinante da 
Geracao Prologica c faco um curso dc 
BASIC nivel I, no qual utilizamos CPs 
300 e 500. Goslaria dc receber informa- 
coes sobre a instrugao POKE. Preciso 
de endereeos e f uncocs de cada um, pa- 
ra elaborar programas com esta instru- 
cao. Na GP nao (em aparecido cstc as- 
sunto para os CPs acima, apenas para 
o CP 400 Color II. 

Paulo Sergio Garcia — Presidente 
Prudente — SP 

Caro Paulo, agradecemos os elogios 
e a colaboracao. Informamos que esta 
funcao coloca um conteudo na mcmo- 
ria, mas para isso ha necessidadc dc dois 
argumentos: o endereco dos bytes na 
forma decimal e um valor entre e 255 . 

Aqui vao alguns efeitos especiais 
produzidos com o uso da funcao 
POKE: 

Para desativar o Break 
Poke 16396,175 
Poke 16397,201 
A livar o Break 
Poke 16396,201 
A cert a r o relogio interno 
Poke 16923-dia; Poke 16924-mes; Po- 
ke 16922-ano; Poke 16921-hora; Poke 
16920-minuto; Poke 16919-segundo. 
Li gar o relogio 

Poke 16526,152: Poke 16527,2:= USR(0) 
ou DEFUSR 1 (0) = 664:x = USR 1 (0) 
Desligar o relogio 

Poke 16526,161: Poke 16527,2:x=USR(0) 
ou DEFUSRl(0) = 673:x = USRl(0) 



CP 200S 



Gostaria dc saber quais as uiilidades 
e equipamentos para a expansao do CP 
200S. 
Carlos A . Degasperi — Rio Claro — SP 

O CP 200S possui um teclado com 
as funcocs ja impressas nas proprias te- 
clas, facilitando o aprendizado da lin- 
guagem BASIC. Ele permite a cxecucao 
de sub-rotinas em linguagem de maqui- 
na em seus programas, aumentando a 
velocidade de cxecucao dos mesmos. E 
um micro ideal para quern deseja 



iniciar-se no mundo da informatica. 
Aprcsenta grande utilidade na adminis- 
tra?ao de pequenos negocios, na reso- 
lucao de problemas cscolarcs (atraves 
dos programas educativos) e facilita as 
tarefas domesticas. O CP 200S tern 16 
Kbytes de memoria RAM e 8 Kbytes de 
ROM. Procure a Assistencia Tecnica 
Autorizada Prologica. Alemdeefetuar 
a expansao descjada, cla preserva a ga- 
rantia de seu cquipamento. Ok? 



CP 500 




Gostaria de receber informacoes so- 
bre o CP 500, mcrcado de software e co- 
mo adquirir os niimeros atrasados da 

Geracao Prologica. 

Sandra Bertotto — Dourados — MS 

Cara Sandra, o mercado de software 
para possuidores do CP 500 e muito am- 
plo, pois existem programas desenvol- 
vidos para qualquer area de aplicacao 
que se deseje trabalhar. Ele trabalha 
com o sistema operacional DOS 500, 
possui 48 Kbytes de memoria RAM pa- 
ra armazenar pogramas, arquivos e bu f- 
fer de video. Possui ainda 1 6 Kbytes de 
memoria ROM, na qual content o in- 
terpretador BASIC e um monitor resi- 
dente, duas unidades de disco com ca- 
pacidade maxima de ate 700 Kbytes si- 
multaneamente. Pode-se operar sua tela 
com 32 ou 64 colunas por 1 6 linhas. Tern 
capacidadc de trabalhar com todos os 
caracteres do alfabcto, simbolos semi- 
graficos e caracteres especiais. Usando- 
o com o sistema operacional SO08, vo- 
ce tera 64 Kbytes de memoria RAM e 
2 Kbytes de memoria ROM. Portanto, 
tera tambem uma biblioteca maior de 
programas, pois o sistema operacional 
c compativel com CP/M, podendo ro- 
dar programas como Calcstar, Dbase 
II, Wordstar, programas aplicativos da 
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Programacao no CP 500 — A SOS 

Computadores trabalha com tres lin- 
guagens: Basic, Cobol e Assembler 
e cursos especiais para aplicativos. 
Mais informacoes, nos seguintes en- 
derecos:Av. Pacaembu, 1280 — Sao 
Paulo — SP — tel.: (Oil) 826-0466; 
ou R. Tomas Carvalhal, 380 — Pa- 
rafso — SP — tel.: (01 1) 570-9301. 



Introducao a Microinformatica — 
Datas: 10 e 1 1 dc abril, 19 e 20 de 
maio, 12 e 13dcjunho. Horario:das 
8:30 as 17:30. Mais informacoes: Sao 
Paulo Computer Institute — Aveni- 
da Reboucas, 1 669 — CEP 0540 1 — 
Sao Paulo — SP — tel.: (01 1) 
883-0355. 



Analise de Sistemas — O objctivo 
do curso e formar profissionais pa- 
ra exercerem a atividadedeAnalisia 
de Sistemas, com sdlida base teorica 
e experiencia prdtica. Data: 12 de 
maio a 29 de agosto e 01 de setem- 
broa 19dedezcmbro. Mais informa- 
coes: Instituto Compucenter de In- 
formatica — Rua Bela Cintra, 746 — 
1 ? andar — Sao Paulo — SP — tel.: 
(011)255-2091. 

Banco de Dados — Curso de forma- 
cao para analistas e administ radores 
de banco de dados. Data: 07 de abril 
a 19 de dezembro. Mais informa- 
coes: Instituto Compucenter de In- 
formatica — Rua Bela Cintra, 746 — 
1 ? andar — Sao Paulo — SP — tel.: 
(011)255-2091. 

Dbase II e III basicos, Framework e 
Programacao — Periodo: abril, 



maio e junho. Os cursos tern dura- 
cao de uma semana com aulas das 
8:30 as 18:00, ministradas no Cen- 
tro dc Treinamento Datalogica — 
Avenida Paulista, 2028 — 3:' andar 
— Sao Paulo — SP. Mais informa- 
coes pelo tel.: (01 1)283-0355. Osin- 
teressados do interior de Sao Paulo 
ou de outros Estados podem ulilizar 
o telefone 800- 1 59Q, que a Iigacao e 
por conta da Datalogica. 



EVENTOS 



I FENASI 86 — Feira Nacional de 
Acessorio, Suprimentos e Instala- 
coespara Informatica. De24a27dc 
abril, das 14:00 as 22:00. Palacio das 
Convencoes, — Parque Anhembi — 
Sao Paulo — SP. 



Proiogica compativeis com o sistcma 
700 e muitos outros. O CP 500 possui 
uma porta RS 232C que o coloca em 
contato com a Rede Intemacional de 
Telematica, alem do videotexto, Ciran- 
dao e Amanda. 

Quanto aos niimeros atrasados da 
Geracao Proiogica, lamentamos infor- 
mar que estao esgotados. Sugcrimos en- 
trar em contato com outros leitores pa- 
ra possiveis trocas, atraves do Clube 
CP's. 



Teclado Professional 



. 



Acabo de ver o Iancamento do CP 
400 II, com urn excelenle teclado. Seria 
possivcl sua utilizacao no antigo modclo 
que possuo? Pretendo ainda adquirir 
uma impressoraegostariade saber qua! 
e a mais adequada. 

PS: Agradeco pelas outras consultas 
fcilas e respondidas. Isto mostra a de- 
dicacSo de todos da Geracao Proiogi- 
ca para o apcrfeicoamento do produto 
brasileiro. 

Marco A. de Bona Rossi — Meier 
— Rio de Janeiro — RJ 

Agradecemos os elogios. Rcalmcn- 
te o nosso objetivo e aperfeicoar e va- 
lorizar o produto brasileiro. 
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Marco, voce podera trocar o seu te- 
clado por um profissional na Rede dc 
Assistencia Tecnica Proiogica. Quan- 
to a impressora mais adequada para o 
CP 400 e a P 500 serial. Voce podera 
encontra-la no mesmo local onile adqui- 
riu o seu computador. 



Software para CPs 



Estive na Feira de Informatica 85, 
onde reccbi um exemplar da Geracao 
Proiogica. Goslc'i muito, pois a revista 
mostrou novas realidades para mini. 
Nela descobri o que eu quero em termos 
de micros e gostaria de saber o seguin- 
te: programas do CP 300/500 servem 
para o CP 400 e vice-versa? O progra- 
ma de Localizacao e Edicao Aulomati- 
ca de Erro para o CP 400 Color serve 
para os demais? 
Jose A. V. Decout — Ubatuba — SP 

Agradecemos suas palavras, pois 
vao ao encontro de nossos objetivos: 
dar suporte tecnico a quern dcseja en- 
trar no mundo da informatica. Por ou- 
tro Iado, informamos que programas 
do CP 300/500 nao servem para o CP 
400, e o de Localizacao e Edicao Auto- 
matica de Erro, desenvolvjdo para o CP 
400, nao se adequa aos demais. 




Antes de tudo quero agradecer pela 
informacao tecnica sobre o programa 
"CAD". Esta funcionando beleza! 

Percebi que o CP 400 nao imprime 
na tela toda; resolvi entao comprar uma 
televisaomenoreoproblemacontinua. 
Sera um dcfeito? Como preencher a te- 
la toda? 

Pli'nio P. Pochini 
Sao Caetano do Sul — SP 

O fato de seu computador nao im- 
primir na tela toda e normal, pois ne- 
nluini o faz. Entrctanto, no caso do CP 
400, isto fica mais evidente pelo fundo 
verde de sua tela. Ok? 
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Nem bem estamos nos re- 
fazcndo da revolucao 
causada pelos micro- 
computadores a socie- 
dadc atual, c ja nos de- 
paramos com no vidades tecnologicas dc 
tamanho vulto que temos de enfrentar 
novamenle grandes reflexos sociais c or- 
ganizacionais. 

Com a utilizacao dos microcompu- 
tadores, mesmo com a sua capacidade 
de processamento e armazenamenio de 
dados limitada, operou-se uma verda- 
deira democratizacao da informatica. 
Muitas empresas, seja pelo seu portc re- 
duzido ou pelo baixo grau de sofistica- 
cao tecnica das suas atividades, nunca 
imaginaram que urn dia poderiam se fa- 
zer valer dc tais rccursos computacio- 
nais. Principalmente se considerarmos 
que os computadores de grande pone, 
e mesmo os minicomputadores, com 
frequencia neccssilam de instalacocs es- 
peciais e pessoal altamente especia- 
lizado. 

Hoje, pcquenas e medias empresas 
e profissionais liberais ulilizam plena- 
mente o microcomputador como ferra- 
menta de trabalho. As aplicacoes sao as 
mais amplas possivcis, informatizando- 
se desde as tarefas administrativas e de 
controles tradicionais (contabilidade, 
com role decstoq ues, faturamenlo, con- 
tas a pagar e reccber, folha de pagamen- 
to, planejamento e controle da produ- 
cao etc.) ale as tarefas voltadas para o 
suporte as atividades de advogados, 
dentistas, medicos, arquitetos, enge- 
nheiros, economistas e muitos outros. 
Apesar de todas essas aplicacoes e de 
nao necessitar de instalacocs especiais, 
o microcomputador ainda e considera- 
doummitoesesupoeque, paraopera- 
lo, e preciso um ccrto grau de espcciali- 
zacao tecnica. Por este motivo, 
vulgarizam-se os curses de operacao e 
programacao para micros. Logo mais 



teremos em cada esquina uma placa 
com os dizeres: "Ensina-se Basic". 

Esses problemas foram causados cm 
grande parte pelas proprias limitacoes 
dos micros profissionais originais. Es- 
ses computadores, que utilizavam ba- 
sicamente os microcomputadores 8080 
da 1 ntel e o Z80 da Zilog, tecnologia de 
8 bits, estavam restritos a 64 kB dc me- 
moria para os programas de aplicacao 
e a 4 MHz dc velocidade de execucao 
de instrucoes. Alem disso, do lado do 
armazenamenio de dados, basicamen- 
te se dispunha de disquctes com nao 
mais do que 1 MB de capacidade. 

E facil imaginar como seria a execu- 
cao dc um programa integrado de ges- 
tao administrativo-financeira em um 
desscs micros. Em primeiro lugar, o 
operador do equipamento iria passar as 
"52 horas do seu dia" trocando disquc- 
tes de programas e dados. Como se isto 
ja nao tornasse inviavel tal empreendi- 
mento, o programador desta aplicacao 
teria de fazer magica para conseguir a 
integracao neccssaria a um sistema deste 
porte com os 64 kB de memoria e dis- 
quctes de 1 MB existentes. 

Nao precisamos ir tao longe: as apli- 
cacoes de processamento de (extos, ban- 
cos de dados e planilhas eletronicas, 
consideradas ferramentas basicas para 
o uso do microcomputador, alem de 
naoserem integradasentresi, nao pos- 
sibilitavam a comunicagao neccssaria 
com as aplicacoes administrativas e de 
controle tradicionais. E, com relacaoas 
empresas de grande porte, o uso dos mi- 
cros somente faz scntido em um am- 
biente descentralizado, o que implica 
procedimentos eficientes e eficazes de 
comunicacao de dados. Novamente, o 
nivel de integracao possivel com os mi- 
cros de 8 bits realmcnte deixa a desejar. 
Por isso, foi preciso ir alem, pois as ne- 
cessidades do mercado exigiram uma 
novarevolucao: ageracao 16 bits. 
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Os micros de 16 bits chegaram ao 
Brasil no final de 1983. As principals ca- 
racteristicas dcsscs computadorcs sao as 
seguintes: 

— uso do microprocessador Intel 8088 
ou equivalente; 

— aumento da memoria de 64 kB pa- 
ra 640 kB, ou seja, 10 vezes mais me- 
moria para os programas de aplicacao 
do usuario; 

— acrescimo na velocidade de proces- 
samento de 4 para 4.77 ou ainda 
8 MHz; 

— disponibilidade de graficos colori- 
dos, permitindo uma mclhor apresen- 
tacao e visualizacao dos dados no 
micro; 

— grande capacidade de comunicacao 
com outros computadorcs (grande por- 
te, minis e micros); 

— capacidade de interligacao cm redes 
de micros; 

— possibilidade de uso em automacao 
industrial (controle de proccssos, aqui- 
sicao de dados etc.); 

— aumento da memoria dearmazcna- 
mentode dados para 10 MB, 20 MB ou 
mais (com o uso dc discos rigidos tec- 
nologia Winchester); 

— uso de urn sistema opcracional (pa- 
ra o controle das tarefas executadas pelo 
micro) mais sofisticado, facilitando a 
utilizacao do micro e aumentando a se- 
guranca e controle dos dados; 

— possibilidade dc aumento da capa- 
cidade do micro com o uso dc placas de 
expansao (memoria adicional, acresci- 
mo das capacidades de comunicacao, 
mclhor resolucao grafica, interface para 
controle de processos etc.). 

Todas essas caracteristicas, por si so, 
nada representam. O que rcalmcntc im- 
porta e o que podemos fazer com o mi- 
cro e o que e preciso para tal. A grande 
vantagem dos micros de 16 bits sobre 
os de 8 bits, alem, e claro, da aha capa- 
cidade de expansao, e a possibilidade de 



desenvolvimento de aplicacoes inte- 
gradas. 

Foi com os m icros de 1 6 bits que sur- 
giram programas do tipo Lotus 1 - 2 - 
3, Symphony, Framework, Open Ac- 
cess e outros que, utilizando principal- 
mente a maior capacidade de memoria 
do micro, a maior velocidade de proces- 
samento e as suas capacidades graficas, 
conseguiram um grau de integracao de 
aplicacoes e facilidade de operacao ate 
entao inimaginaveis, a ponto de o uso 
do microcomputador por pessoas sem 
qualquer especializacao na area se tor- 
nar uma realidadc. 



SP-16: 



A Prologica lancou o seu micro de 
16 bits, 0SPI6, na Fcirade Informati- 
cadaSucesudenovembrode 1984. Por 
razoes de mercado, optou-se pelacom- 
patibilidade com a linha IBM-PC e com 
o sistema opcracional MS-DOS. 

Entretanto, dada a grande importan- 
cia, a nivel de Brasil, dos micros de 8 bits 
e sistemas operacionais compatfveis 
com o CP/M, a Prologica tambem co- 
locou a disposicao dos seus usuarios 
uma placa de expansao para possibili- 
tar o uso, no novo micro, de todo o soft- 
ware CP/M ate entao desenvolvido. 

A preocupacao da Prologica em ofe- 
recer a disponibilidade de uso de soft- 
ware CP/M nestc micro como uma ex- 
pansao, c nao como uma caracteristica 
padrao do equipamento, deve-se ao fa- 
to de que os usuarios que nao necessi- 
tam dc software CP/M nao devem pa- 
gar por isso. 



Claudio Agostini 
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O micro de 16 bits da Prologica 



O SP16 e compatfvd com o IBM 
PC* e IBM PC XI *; possui concepcao 
modular, permitindo total adequacao 
as suas necessidades. 

Utiliza o Sistema Operacional SO 1 6 
e e compativel com o MS-DOS versao 
2. 1 1 . Voce pode rodar o que ha de mais 
atual e poderoso no mercado de aplica- 
tivos: l-2-3 ,m e o Symphony 11 " da Lo- 
tus, o DBase III e o Frame Work da 
Ashton Tate, o Multiplan da Microsoft 
e assim por diante. Nao £ a toa que o 
SP 1 6 se chama Sistema Profissional 16. 

No ato de ligar o SP16, uma rotina 
de Autoteste checa toda a maquina, 
apontando imediatamente a causa e lo- 
calizacao de qualquer irregularidade. 



COMPATIBILIDADE 

Tudo roda no SP 16, sem problemas. 
Sem contar a grande quantidade de 
software ja desenvolvida para o Siste- 
ma 700, Super 700 e aplicativos CP/M 



versao 2.2, que tamblm rodam no 
SP16, com a adicao de uma placa. 

Mas nao e s6 na compatibilidade que 
o SP16 ganha dos outros. Sua memo- 
ria chega ate 640 kB. Assim, voce" vai 
sempre ter a memoria mais adequada 
para as suas necessidades, otimizando 
o seu investimento. 

O controlador de video tern capaci- 
dade grafica e de cores. No modo me- 
dia resolucao, isso significa 64 mil pon- 
tos em 40 colunas por 25 linhas mos- 
trando ate 4 cores simultaneas. 

O SP1 6 pode ter conectadas ati duas 
unidades de disco flexfvel, face dupla, 
densidade dupla. Mas pode tambem ter 
conectadas unidades de disco Winches- 
ter, com capacidade de 5, 10 ou 1 5 Me- 
gabytes. 

Aceita impressoras serials ou para- 
lelas, possui portas seriais assincronas, 
padrao RS 232C e 6 comandado pelo te- 
clado de melhor desempenho do 
mercado. 

Sao 103 teclas racionalmente distri- 



buidas, permitindo um maximo de ra- 
pidez e um minimo de erro na digitacao. 
Alem disso, esse teclado e capaciti- 
vo: ele dura 5 vezes mais que os tecla- 
dos comuns, e ao mesmo tempo tern um 
perfil mais baixo e ergonom&rico. 



TELEPROCESSAMENTO 

Com o SP16 poderao ser utilizadas 
interfaces e placas de expansao que pos- 
sibilitam, al6m do aumento de sua ca- 
pacidade de processamento, incremen- 
tar os recursos de comunicacao de da- 
dos entre o SP16 e outros sistemas. 

A comunicacao atraves de cabo coa- 
xial, emulando terminals IBM 3278/79 
conectados a concentradores locais e re- 
motos, torna-se realidade com a simples 
colocacao de uma placa. 

£ possivel tamb£m conecta-lo a um 
mainframe, remotamente, atraves de 
protocolo de comunicacao do tipo 
BSC3. 
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E finalmente, utilizando-se protoco- 
los assincronos (KERMIT, por exem- 
plo), o SP16 conecta-se a maioria dos 

equipamentos de mldio e grande porte 
disponfveis no mercado. 

Isso tudo scm levarmos em coma a 
possibilidade de participar das redes de 
servicos, tais como Cirandio, Renpac, 
Videotexto etc. 

HARDWARE 

Gabinete principal 

• contain todas as placas e ate 2 unida- 
de disco nexivel 5 1/4" 

• atS uma unidade Winchester 

• conexdes com o meio externo 

• 1 alto-falantede2" 

Video 

• 12" monocromatico (fdsforo verde) 

• controle de intensidade luminosa 

• ajuste de inclinacao 

Teclado 

• tecnologia capacitiva de grande dura- 
bilidade, perfil baixoeergonometrico 

• composto de 103 teclas: 54 alfanume- 
ricas, 16 do teclado reduzido, ^pro- 
gramaveis, 1 6 especiais e 5 para con- 
trole do cursor 

Fonte de alimentacao 

• 1 10 ou 220 VAC, 60 Hz 

• protecao contra: curto-circuito, so- 
bretensao e sobrecorrente 

• consumo: 400 VA 

Placas 

As placas que constituem o sistema sao: 

a) Placa Mae 

composta por 8 "slots" padrao IBM 
PC** 

b) Placa CPU (Basico) 

• microprocessador Intel 8088 - 
4,77 MHz 

• co-processador aritm&ico Intel 
8087 (opcional) 

• 16 kBde memdria EPROM(roti- 
nas de controle de 1/0 e testes) 

•DMA 

• timer programavel: geracao de 
tons, geracao de base de tempo 
(reldgio) 

• 8 niveis de interrupcSo vetorizada 

• interface econexaoao teclado (co- 
nector padrao DIN) 

c) Placa Memdria (Basico) 

• 320 kB de memdria RAM (com pa- 
ridade), com pastilhasde (64K x 1) 
bits 

• 1 interface paralela (DB 25 femea) 

d) Placa de Expansao de Memdria (Op- 
cional) 

• 320 kB de memdria RAM (com 
paridade), com pastilhas de 
(64Kx l)bits 
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• 1 interface paralela (DB 25 femea) 
e) Placa Controladora de Disco Flexi- 

vel (Basico) 

• ate" 2 unidades internas de disco fle- 
xivel 5 1/4" FD/DD 

• controladorcomcapacidadedege- 
renciar ate 1 4 unidades 

• capacidadedearmazenamentopor 
disquete face dupla 48 TPI: 
360 KBytes 

• 2 interfaces seriaisassincronas, pa- 
drSo RS 232C (DB 25 macho) 

Placa Controladora de Video 
(Basico) 

• controlador de video com capaci- 
dade grafica e cores (16 opcoes de 
cor) 

• 32 kB de memdria RAM 

• sat'da RGBI 

• modo-texto e modo-grafico 

• 256 caracteres de modo-texto 

• 128 caracteres programaveis no 
modo-grafico 

• B & P no modo-texto com 40/80 
colunas por 25 linhas 

• B & P no modo-graTico media re- 
solucao com 40 colunas por 25 li- 
nhas, contendo 64 mil pontos 
(320x200). 

• B & P no modo grafico alta reso- 
lucao com 80 colunas por 25 li- 
nhas, contendo 128 mil pontos 
(640x200) 

• colorido no modo-texto com 40/80 
colunas por 25 linhas, 8 cores em 
alta ou baixa intensidade, piscan- 
tes ou nao, definidas para o fundo 
e para o caractere (com monitor 
colorido) 

• colorido no modo-grafico mddia 
resolucao, com 40 colunas por 25 
linhas, contendo 64 mil pontos 
(320x200) 

• atributos de caractere: reverso, pis- 
cante e alta intensidade 

• campo com matriz de 8 x 8 pontos 
g) Placa Controladora de Winchester 

(Opcional) 



• ate 2 unidades (de at6 8 cabecas e 
1024 cilindros) 

• gerador de ECC (.Error Correcting 
Code) 

• unidades Winchester de 5, I0oul5 
MB 

h) Placa CP/M (Opcional) 

• permite utilizacao dos softwares 
escritos para os S600, S700 e 
SS700(*) 

• microprocessador Zilog Z80 
B-4,77 MHz 

• 64 KBytes de memdria RAM 

• transforma placa-memdria em 
"RAM-DISK** 

AUTOTESTES 

• cada vez que o sistema 6 "iniciali- 
zado", o funcionamento de todas 
as placas e" avaliado por uma roti- 
na de teste, havendo indicacao no 

caso de falha 

SOFTWARE 

a) Sistemas Operacionais 

• SOI6, compativel com MS-DOS 
(vers3o2.ll) 

• SO08, compativel com CP/M (ver- 
sao 2.2) 

b) Linguagem 

• Basic interpretado, com recursos 
graficos, sonoros e cores 

c) Software Aplicativo 

• biblioteca de software disponivel, 
compativel com S600, S700 e 
SS700(*) 

• software compativel com IBM 
PC** e IBM PC xt ** 

TELEPROCESSAMENTO 

Possibilidade de Comunicacao: 
•BSC3 

• cabo coaxial 

• comunicacSo assincrona 

(*) Exceto recursos especiais do SS700 
(video, caracteres programaveis e pla- 
cas de expansao). 

(**) Marca registrada IBM. 
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o pioneirismo 
do CLIP INFORMATICA 



Zzzzuuuummmm. Isto nao c urn 
mosquito, muito menos urn pernilon- 
go. E a transmissao de um software ra- 
diofonico. Ou melhor, um clip que 
transmite software por ondas de radio. 

Espantado?! Maseisso mesmo!! A 
Radio USP-FM — 93.7 MHz — esta Ic- 
vando ao ar, todos os domingos, a par- 
tir das quinze horas, um programa de 
trinta minutos de duracao. E o CLIP 
INFORMATICA, produzido para os 
apaixonados por micros e interessados 
pclainformaticaemgeral.Eleinforma 
tudo o que ocorre no mundo dos soft- 
wares, desde a producao industrial ate 
o comercio ultra-segmentado. 



O programa esta "fazendo a cabe- 
ca" dos micromaniacos e a dos simples 
usuarios de microcomputadores e vi- 
deos, com prestacao de services, dicas 
de como comprar ou alugar, tabelas de 
precos, pontos de vendas, testes de equi- 
pamentos, novos lancamentos, entre- 
vistas com pessoas ligadas ao setor e 
muita miisica eletronica. 

CLIP INFORMATICA e produzido 
por uma equipc de profissionais e estu- 
dantesdejornalismoeinformatica, que 
estao em contato dircto com fabrican 
tes, lojas e literatura especializada, pa- 
ra manter o nivel de atualizacao. A di- 
recao e de Alexandre Fejes Neto, 29 



anos, ex-gerente administrativo de uma 
indtistria de equipamentos eletronicos 
— que deixou a estabilidade do empre- 
go para se lancar nessa aventura com- 
putadorizada. Alexandre se considera 
"enfeiticado" por computadores des- 
de 1 980, porcm somente agora esta pon- 
do em pratica essa velha paixao. 

O sucesso desse programa deix'ou 
Alexandre a vontadc para propor ao di- 
retor da Radio, Luiz Fernando Santo- 
ro, novas experiencia do genero, como 
um musical utilizando somente grava- 
coes de discos digitals, com a transmis- 
sao de sinal puro, sem nenhum "chia- 
do" ou interferencia. 



B 
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Alexandre Fejes Neto, produtor do CLIP INFORMA1 ICA. 



SOFTWARE RADIOFONICO 

A ideia, conta ele, surgiu em 84: "Ao 
ler uma reportagem sobre testes para a 
transmissao de software radiofonico 
nos Estados Unidos, resolvi trabalhar 
em algo que me satisfizesse plenamen- 
te". E completa: "Gravei uma fita e a 
mostrei na USP, porem nao acredita- 
ram na viabilidade da transmissao; mes- 
mo assim , gravamos e fizemos testes em 
varios pontos da cidade; todos deram 
bons resultados e ganhei o programa". 

O espaco de meia hora reservado ao 
clip e dividido em tres partes: a primci- 
ra aborda os microcomputadores, 
orientando os usuarios quanto a melhor 
maneira de utiliza-los. Na parte inter- 
mediaria, o assunto em paula sao os vi- 
deogames, videocassetes e discos digi- 
tals. Porem, a grande atracao esta re- 
servada aos minutos finais do clip: a 
transmissao de um software, via ondas 
magneticas, para ser gravado c utiliza- 
do pelo ouvinte. 

"Nao ha roubo, ncm pirataria. A 
transmissao e feita apos a autorizacao 
dos criadores, pessoas que atuam na 
area e gostariam de passar os progra- 
mas para outros ouvintes", enfatiza o 
produtor. Ja foi transmitido aos ouvin- 
tes o Compilador Assembler que trans- 
forma a linguagem BASIC em lingua- 
gem de maquina, bem mais vcloz na lei- 
tura, com grande aceitacao. Os jogos 
transmitidos por sinais radiofonicos, 
entre outros, foram Nautilus, Caleidos- 
copio, Xadrez, Labirinto Tridimensio- 
nal, programas de controle bancario e 
orcamento domcstico, atendendo usua- 
rios de todas as linhas. 



DEMOCRATIZACAO DA 
INFORMATICA 

"Prestar servicos aos ouvintes c de- 
mocratizar a informatica c o nosso ob- 
jetivo. O publico amadureceu muito. 
Hoje ele nao esta preocupado somente 
em saber sobre assuntos tecnicos ou pe- 
dagogicos. Esta preocupado cm formar 
opiniao para as varias opcocs de que o 
mercado dispoe", afirma Alexandre. 
"E o CLIP INFORMATICA esta 
orientando, educando e informando so- 



bre o reservado mercado da informati- 
ca", conclui ele. 

Para gravar o software radiofonico 
e necessario dispor de uma fita casscte, 
um gravador comum e seguir as instru- 
coes do Iocutor. No inicio, ouvc-se ape- 
. nas um "chiado" como se a emissora 
estivesse fora do ar. Mas nao esta, sao 
os sinais que estao saindo da antena da 
USP, diretamente para o gravador do 
ouvinte. Prontinho, sua bibliotcca aca- 
ba de ganhar de presente um software 
original. 

Entretanto, Alexandre diz que o ou- 
vinte acaba gravando o programa intci- 
ro, devido as informacoes transmitidas. 
O succsso do CLIP INFORMATICA 
e tao grande, segundo Alexandre, que 
a Radio USP vem mantendo negocia- 
coes com emissoras de outras cidades vi- 
sando a veiculacao do programa. 

Os ouvintes do CLIP INFORMATI- 
CA concorrem a sorteios de publicacoes 
especializadas, tabelas de mnemonicos, 
descontos cm Iivrarias, filiacao gratui- 
ta em clubes de videos, entre outros 
premios. 

Perseguindo o objetivo de democra- 
tizar a informatica, Alexandre aceita su- 
gestao para pautar edicoes futuras; to- 
dos podem participar divulgando seus 
programas. Maiores informacoes po- 
dem ser obt idas pelo telefone (011)831- 
6080, ou escrevendo para: Radio USP 
— CLIP INFORMATICA — Caixa 
Postal 8191 — Sao Paulo. 



SORTEIO GERAQAO PROLOGICA 




Geracao Prologica tambem esta participando do CLIP INFORMATI- 
CA, atraves de intercambio de informacoes. Por tratar-se de um projeto 
original de prcstacao de servicos aos usuarios de microcomputadores, a 
revista autorizou a transmissao de materias e programas publicados; alem 
disso patrocina sortcio, entre os ouvintes do CLIP, de dez assinaturas 
da Geracao Prologica, cinco da Nova Eletronica e mais cinco livros In- 
do Alem com o CP 400, de Paulo Addair. 

Participe e boa sorte!!! 
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Muitas vczes c convcnientc tcr urn metodo para efetuar 
o retorno ao comando imeditamente anterior a uma parti- 
da a qucntc (warm start) ter sido executada. Para tanto, cria- 
rcmos urn novo metodo com a utilizacao de um built-in co- 
mand (criador de comandos). Digitc: 



A > STAT 

A:R/W, ESPACO : 302K 

A>SAVE 0ULTIMO.COM 



A instrucao acima grava no disquete um novo coman- 
do. Porem, como o tamanho do arquivo c especificado ze- 
ro, nao ha dados gravados/salvos. Entao, sc voce executar 
o comando STAT, novamentc ira verificar que zero byte 
foi utilizado — o que significa que o comando ULTIMO 
e um programa vazio. 

Quando executamos o comando ULTIMO, o CP/M car- 
regao programa corrcspondenteULTIMO.COM no inicio 
da TP A {Transient Program Area), na posicao 100 hex. No 



ALERTA! 



FALTA SISTEMA 
NO SEU COMPUTADOR 

Voce adquiriu seu micro sem as- 
sessoria especializada e esta 
com ele parado e os velhos pro- 
blemas que pretendia resolver 
permanecem. 

VALORIZE SEU 

INVESTIMENTO 
Chame os analistas de SISTE- 
MAS (software, programas) da 
DIALOGICA. Transforme em 
pratica, a baixo custo, todas as 
ideias e usos que voce imagina 
para seu equipamento. 

CONSULTE-NOS 
SEM COMPROMISSO 

Jdialogica 

VI ComuntcacAu e Sislemaa LlOa. 

Rua Fradique Coutinho, 50 
Pinheiros - Sao Paulo 
64-7131 - 64-0331 




entanto, como nao ha dados, ele simplesmente rcinicia o pro- 
grama que anteriormente ocupava a TP A. Para vermos co- 
mo esse comando funciona, digitc: 



A>PIP 



O CP/M ira carrega-lo na area da memoria a partir do 
endercco 1 00 hex, sendo que o PIP corrcsponde ao asteris- 
co. Normalmente, o PIP e utilizado depois dos parametros, 
mas, desta vez, basta teclar ENTER e retornar ao CP/M. 
O CP/M executa um warm start e coloca na tela um A> . 
Entao, digite: 



A>ULTIMO 



Caso voce nao esteja convencido, digite um pequeno pro- 
grama cm Basic: 



10 FOR 1 = 1 TO 10 

20 PRINT "TESTE DO COMANDO ULTIMO" 

30 NEXT 1 

40 END' 



Execute o programa, mas antes de salva-lo force uma par- 
tida a quente, digitando Control C. Digite agora o comando 
ULTIMO; voce notara que o sistema rctomara ao BASIC 1 
e que seu programa ainda permanece na memoria para ser 
salvo ou executado. 



DIV1SAO DA MEM6RIA PARA O SISTEMA 
OPERACIONAL CP/M 


BIOS 


Alta Mem6ria(FF hex) 


BDOS 


CCP 


TPA 


100 hex 


Parametros 
do Sistema 


Baixa Mem6ria 



10 
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A EVOLUgAO EM /^ 

MICROPROCESSADORES 



O 6809 e um dos melhores e mais ver- 
sateis microprocessadores de primcira 
geracao, cmbora alguns o considerem 
pelos seiis rccursos, dentro da famiiia 
de CPUs da Motorola, como de segun- 
da geracao. Scu conjunto de instrucoes 
contem refinamentos que Ihe permiiem 
concorrer de pcrlo com os primeiros mi- 
croprocessadores de 16 bits, alem de 
possuir circuitos integrados dedicados 
voltados a implementacao de sistemas 
e computadores pessoais. 

O nosso intuito, entretanto, neste e 
nos artigos subsequentes, nao sera 
aprofundar-nos tecnicamente sobre es- 
ta CPU, nem a nivel de hardware, nem 
a nivel de software (linguagens de ma- 
quina), mas sim estudar as suas possi- 
bilidades de interfaccamento atravcs de 
uma visao panoramica dos pinos de 
controle da CPU e da sua filosofia es- 



trutural, a fim de atingir com exemplos 
praticos um bom conhecimento de suas 
potencialidades. 

Como instrumento dc estudo iremos 
utilizar o microcomputador CP 400 Co- 
lor, pois com ele tercmos facil acesso a . 
quase todos os pinos da CPU, alem de 
contar com o apoio de um hardware po- 
deroso com Interpretador Basic, que 
nos permitira acessar externamcnte pe- 
rifericos, sem a necessidade de conhe- 
cermos a linguagem de maquina do 
6809. 

Este trabalho sera composto basica- 
mente de tres artigos. O primeiro tera 
por finalidade a introducao teorica ba- 
sica, iniciando com um breve historico 
sobre o surgimento e a evolucao dos mi- 
croprocessadores, seguido de um estu- 
do sobre a pinagem e a sinalizacao de 
controle da CPU 6809, com a intencao 



dc possibilitar o entendimento dos si- 
nais presentes no conector de cartuchos 
do CP 400. 

Nos artigos subsequentes serao dis- 
cutidas, com exemplos praticos, as pos- 
sibilidades de interligacao do CP 400 
com o mundo externo, atraves de pro- 
jetos que irao concorrer para que voce 
possa dcscobrir novas formas de explo- 
rar os infindaveis recursos deste versa- 
til microcomputador. 



Breve historico sobre os 
microprocessadores 

O advento dos microprocessadores 
representa um grande marco na histo- 
ria do processo de integra?ao em larga 
escala, pois rompeu a direcionalidade 
da aplicagao dos circuitos integrados 
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dedicados. A fim de excmplit'icar o sen- 
lido desia afirmacao inicial, considere- 
mos um modulo dedicado que rcaliza 
as funcoes de um relogio digital. Para 
que possamos coloca-lo em funciona- 
mento, somente teremos que conecta- 
lo a uma fonie de alimenlacao apropria- 
da e interliga-lo a um conjunto de cha- 
ves, que irao realizar as funcoes de ajus- 
te, alarmc etc . , proprias deste aparelho . 
Entretanto, observe que nao sera pos- 
sivel allerar seu funcionamenlo de ma- 
neira que possamos ter nao um relogio, 
mas um cronometro, embora o modu- 
lo possua todos os elemenios basicos 
para esla nova funcao. 

Em meados de 1970, a Intel Corpo- 
ration fechou um contrato com um fa- 
bricante de calculadoras para realizar 
a integracao, em uma unica pastilha, do 
circuito de um processador de 4 bits. 
Terminado o trabalho, constatou-se 
que o novo componente se mostrava in- 
capaz de processar na velocidade do cir- 
cuito original devido as imperfeicoes do 
processo de integracao daquela cpoca, 
sendo entao rejcitado pelo comprador. 
Assim se apresentava um impasse: ou 
se colocava o novo componente no mer- 
cado de semicondutores, ou se jogava 



todo o projeto na cesta de lixo e nao se 
falava mais no assunto. Felizmcnte, o 
4004 nao foi para o lixo! 

Apos o seu surgimcnto no mercado, 
pcqucnas e medias empresas conscgui- 
ram o seu aproveitamento em diferen- 
tcs areas, aumentando a sua dcmanda 
e obrigando a I ntel a lancar o seu succs- 
sor, o 04040, com melhores recursos. 

Mas, a medida que o mercado se im- 
punha, ganhava forca; verificava-se 
que o tamanho do caractere (4 bits) era 
insuficienteparaprocessamentodctex- 
tos, embora fosse ideal para numeros, 
c que havia necessidade de aumentar a 
area de memoria disponivel ao proces- 
sador, permitindo a execucao de pro- 
gramas mais complexos. 

Assim, novos esforcos foram reali- 
zados e, em 1972, a Intel iancou no mer- 
cado o 08008 seguido de perto pelo 8080 
(1973), ambos proccssadores de 8 bits. 
O primeiro com capacidade de endcre- 
camento real de 16K e o segundo com 
64K. Com cstc dcsenvolvimento csta- 
vam lancadas as bases de um caminho 
sem retorno para a popularizacao dos 
microprocessadorcs, obrigando os de- 
nials fabricantes a colocar no mercado 
novos produtos. 



Os microprocessadorcs, afua/mente, 
ja atingiram um grau de complexidadc 
assustador. Circuitos completos de con- 
trole, intcgrados em uma unica pastilha, 
sao hoje uma realidade. Porem, esta ex- 
plosiva cvolucao esia marcada por ge- 
racoes bem definidas de CPUs (Central 
Processing Unit). A primeira gcracao 
engloba as maquinas de 4 c 8 bits, dedi- 
cadas a execucao de funcoes basicas de 
processamento, como operacoes logi- 
cas, aritmeticas e controlc de fluxos de 
dados, sem um comprometimento com 
sistemas operacionais (CPUs, como o 
4004, 8008, 8080, 6502, 6800, dentreou- 
tras, podem ser cnquadrados nesta ca- 
tegoria). Entretanto, os esforcos indi- 
viduals de varias empresas, preocupa- 
das em cstruturar uma linguagem de 
apoio de software para estas maquinas, 
forcaram este comprometimento da ar- 
quitctura das CPUs para uma maior au- 
tonomia do programador. Ainda na 
primeira gcracao, maquinas como o 
Z-80, o 8085 , o 6801 e 6803 , vieram com 
seus maiorcs recursos (maior velocida- 
de, macroinstrucoes, operacoes de du- 
pla prccisao etc..) buscar atender me- 
lhor o mercado, marcando o despertar 
da segunda gcracao dos microprocessa- 



AGORA VOCE PODE LIGAR 
QUALQUER IMPRESSORA 
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CONVERSOR 
SERIAL/PARALELO 

Agora voce pode ligar lodas 
as impressoras paralelas do 
mercado ao seu micro O 
Convenor Serlal/Paralolo per- 
mile a voce conoclar qualquer 
impressora parolela (pndrao 
colronics- a saida serial do seu 
micro com a vantagem de. 
com um simples loque. acio-' 
nar lambem qualquer penleri- 
co serial, tern a necessidade 
de Iroca de cabos. 



COMUTADOR SERIAL 

O Comutador Serial e um 
outro aparelho que permile a 
voce duplicar a saida serial do 
seu micro. Com ele voce po- 
dora coneclar dois penlericos 
a saida serial do seu micro, ao 
mosmo lempo E para ulihza- 
los basta girar o botao. sem 
aquela incomoda oporacao de 
iroca de cabos 

Usando em conjunto 

estes equipamenlot. voc6 

DOdc hgar, por exemplo umi impressora 

paratols, um Modem eiiuiiiiiuef 

oulro penlerico serial df inn oscolna 
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dorcs, que se firmou com o aparecimen- 
to das maquinas de 16 bits de dados e 
capazesdeenderecar I Mcgabytedc me- 
moria real, como o 8086, o Z-800 e o 
68000, cada qual com o seu respectivo 
set de instrucocs — possibilitando a ma- 
nipulacao interna de caracteres de 32 
bits (long-word), multiplicacao e outros 
refinamentos. 

Hojc, com os microprocessadores de 
32 bits (terceira geracao), questiona-sc 
a filosofia classica de proccssamento sc- 
qiiencial, buscando novas e mais efi- 
cientes estruturas de controlc. 



O microprocessador 6809 

Agora, iremos descrevcr o funciona- 
mento dos sinais presentes na CPU e 
que sao responsaveis pela perfeita inte- 
gracao entre o processador e os circui- 
tos externos (memoria, perifericos 
etc...)- Assim, atraves da figura 1, po- 
demos observar que: 



— Os pinos 8 a 23 providenciam o en- 
derecamento cxtcrno de memoria e pe- 
rifericos. Se voce ja conhece o Z-80 (ou 
seus similares 8080 c 8085), ira perce- 
ber que o 6809 e um dispositivo volta- 
do a trabalhar com dados contidos na 
memoria, sendo que todo e qualquer 
acesso a perifericos sera realizado atra- 
ves de operagoes de movimento de da- 
dos entre registrador e memoria. Assim, 
nao ha necessidadc de se tcr varios re- 
gistros intemos na CPU, uma vez que 
ela podera rcalizar operagoes direta- 
mente com opcrandos contidos em um 
dos 64 Kbytes de memoria disponivel. 
Observe ainda que o sentido das setas 
indica que os sinais de enderecamento 
saem da CPU para os perifericos ou me- 
m6ria externa, sendo, portanto, sinais 
de controlc unidirecionais. 

— Os pinos 24 a 31 correspondem ao 
barramento de dados para comunica- 
cao da CPU com dispositivos externos. 
O fluxo dos dados ncstas linhas e bidi- 
recional e depende do endereco conti- 
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do na linha de enderccos em um dado 
instante, como tambem dos pinos de 
com role BS, BA e dos sinais de sincro- 
nismo Q oul e E oul . 

— Os pinos de conlrole BS (Bus Status 

— pino 5) e BA (Bus Available — pino 
6) providenciam para os circuitos exter- 
nos o estado em que se encontra a CPU 
conforme a tabcla da figura 2. Assim, 
com BA = BS = 0, aCPUencontra-se 
processando instrucocs normalmente 
da memoria e realizando os demais ci- 
clos de leitura e saida cm memoria ou 
dispositivo de entrada e saida. Com 
BA = e BS = 1 , teremos um estado 
do proccssamento denominado Ciclo 
de Reconhecimento de Interrupcao, no 
qual a CPU interrompeu temporaria- 
mente o processamento normal para 
atender uma sub-rotina especial deno- 
minada sub-rotina de t ratamento de in- 
terrupgoes. No 6809, as interrupcoes 
podem ser geradas atraves de hardware 
ou software e o micro pos sui set e nivei s 
disti n tos de interrupcao: Rese t, NMI , 
IRQ, F1RQ, SWI 1, SW1 2 e SWI 3. 

Com BA = 1 e BS = (sincronis- 
mo), a CPU estara comunicando aos 
dispositivos externos a execucao da ins- 
trucao SYNC do 6809. Esta instrucao 
c bastante utilizada para estabelecer co- 
municacao entre dispositivos periferi- 
cos lentos (disk-drive, imprcssora, lei- 
tora de fita de papcl etc.). Por fim, 
com BA = BS = 1, teremos a con fir- 
macao do estado de permissao para uso 
dos dispositivos externos a CPU, por 
um outro microprocessador qualquer. 
Esta funcao e denominada DMA, ou 
Direct Memory A ccess, e pode ser com- 
preendida como uma retirada da CPU 
6809 do circuito, possibilitando que ou- 
tro micro exerca o controlc do sistema. 
Este estado e pedido a CPU atraves da 
linha de controle DMA REQ(pino 33). 

— Os pinos de sincronismo E„ u , (pino 
34) e Q ou , (pino 35) sinalizam o estado. 
do ciclo de maquina para gravacao e lei- 
tura, conforme mostra a figura 3. As- 
sim, no inicio do ciclo, o micro coloca 
o endereco correspondentc do operan- 
do e estabiliza a linha de controle R/W 
(pino 32) em 1 , se for um ciclo de leitu- 
ra, ou 0, se for um ciclo de gravacao. 
Observe que, para o ciclo de leitura, os 
dados deverao estar disponiveis no fim 
do ciclo de maquina para que a CPU 
possa rccebe-los. Para o ciclo de grava- 
cao, os dados estarao na linha de dados 
ate o fim do ciclo, devendo ser captu- 
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rados pelo dispositivo exicrno neste pe- 
riodo de tempo. 

— Os pinos XTAL (39) e EXTAL (38) 
sao dcsignados para a utilizacao de urn 
cristal de quartzo, que ira deierminar o 
tempo de processamento da maquina. 

— Afuncaodopino36(MREADY)es- 

ta rclacionada com a utilizacao de dis- 
positivos externos lentos, mas que nao 
neccssitam da utilizacao da instrucao 
SINCY. E o caso de memorias lentas 
que nao conseguem fornecer seus dados 
no tempo normal de acesso da CPU. 
Mas, com um circuito auxiliar, pode- 
mos gcrar atrasos de ate 10 us para os 
ciclos de escrita ou gravacao (veja a fi- 
gura 3). 

— Os pinos 2, 3, 4 e 5 sao sinais de en- 
trada para os comandos de interrupcao 
via h ardware (NMT', IRQ, FIRQ e 
Reset). 



— O pino 40 (Halt) estabelece (quan- 
do em nivel 0) uma parada momenta- 
nea do processamento, sendo utilizado 
geralmente para depuraciio de progra- 
mas atraves de circuitos externos. 

— Os pinos 7 ( + V cc ) e 1 (GND) pro- 
videnciam a alimentacao ao micropro- 
cessador. 

Observe que para a perfcita com- 
preensao destes sinais e necessario al- 
gum conhecimento anterior. Todavia, 
se voce e leigo no assunto, nao se apa- 
vore! Estes conceitos, embora Ihe pa- 
recam confusos, vao ser repetidos mais 
tardc, quando desenvolvermos alguns 
circuitos praticos, que poderao ser as- 
similados com maior facilidade. 



O coneclor de carlucho do 
CP 400 Color 

A figura 4 ilustra o conector de car- 
tucho do CP 400 juntamente com a des- 
cricao da pinagem. Observe que os as- 
teriscos (*) designam sinais de controle 
provenientes da CPU e ja analisados an- 
teriormente. 

Pino 1 (saida) — Fontedc alimentacao 
negativa - 12 V cc para fornecimento 
de ate 1,2 W maximo a circuitos ex- 
ternos. 

Pino 2 (saida) — Fontede alimentacao 
positiva + 12 V cc para fornecimento 
de ate 3,6 W maximos a circuitos ex- 
ternos. 













Pin N.° 


Signal Name Description 




l 


- 12 V 


12 volts (100 mA) 




2 


+ 12 V 


• 12 volts (300 mA) 






• 3 


HALT 


Halt Input to the CPU 






• 4 


NMI 


Nonmaskable Interrupt to the CPU 






' 5 


RESET 


Main Reset and Power-Up Clear 
Signal to the System 






• 6 


E 


Main CPU Clock (0.89 MHz) 






• 7 





Quadrative Clock Signal which Leads E 






8 


CART 


Interrupt Input lor Cartridge Detection 






9 


+ 5 V 


4- 5 volts (300 mA) 






• 10 


Do 


Data Bit 






• 11 


D| 


Data Bit 1 






• 12 


o, 


Data Bit 2 






• 13 


D 3 


Data Bit 3 






• 14 


D, 


Data Bit 4 






• 15 


D 5 


Data Bit 5 






* 16 


°6 


Data Bit 6 






• 17 


0, 


Data Bit 7 






• 18 


R/W 


Read/Write Signal 






• 19 


A o 


Address Bit 






• 20 


*i 


Address Bit 1 






•21 


A* 


Address Bit 2 






•22 


A 3 


Address Bit 3 






• 23 


A 4 


Address Bit 4 






• 24 


A 5 


Address Bit 5 






• 25 


As 


Address Bit 6 






• 26 


A, 


Address Bit 7 






• 27 


A B 


Address Bit 8 






• 28 


A, 


Address Bit 9 




• 29 


"10 


Address Bit 10 






• 30 


A.i 


Address Bit 11 






• 31 


A|* 


Address Bit 12 






32 


CTS 


Cartridge Select Signal 






33 


GND 


Signal Ground 






34 


GND 


Signal Ground 






35 


SND 


Sound Input 






36 


SCS 


Spare Select Signal 






•37 


A,3 


Address Bit 13 






•38 


A.4 


Address Bit 14 






• 39 


A 15 


Address Bit 15 






40 


SLENB 


Input to Disable Device Selection 
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EXPANSION CONNECTOR- (VISTO DE FRENTE) 




UliulJ 4 





Pino8(cntrada)Cart — OCP 400 Co- 
lor se utiliza do comando Cart para de- 
tectar a presenca do cartucho quando 
o micro e ligado. Para tamo devemos 
intcrligar esta entrada ao pino 7 do car- 
tucho que fornece o sinal Q oul prove- 
niente da CPU ja estudada anterior- 
mente. Isto fara com que o micro exe- 
cute um salto para a area de memoria 
de 16 Kbytes externa (aces sivel atraves 
do conector pelo sinal CTS, que sera vis- 
to mais a frente); rode o programa ai 
disponivel. 

Pino 9 (saida) — Fonte de alimentacao 
positiva + 5 V cc para fornecimento de 
ate 1 ,5 W maxi mo a circuitos externos. 
Pino 32 (saida) CTS — Sinal utilizado 
para accssar a memoria do cartucho. 
Este sinal ira a quando a CPU estiver 
lendo ou gravando na area de memoria 
entre 49.i52 Da 65.519 D. 
Pinos 33 e 34 — Referenda de terra pa- 
ra um circuito externo. 



.Pino 35 (entrada) SND — Esialinhade 
entrada esta concctada intcrnamente 
com um gerador de torn no CP 400 Co- 
lor e e utilizada para criar efeitos sono- 
ros para anima cao d e jogos etc. 
Pino 36 (saida) SCS — Este si nal r ea- 
liza uma funcao semelhante ao CTS so- 
mente difer encia ndo na faixa de ende- 
recamento (SCS = 0, quando o micro 
esta acessando a area de memoria que 
vai de 65344D a 65375D) e not amanho 
da area que para o sinal SCS e de 32 
bytes. 

Pino 40 (entrada) SLENB — Esta en- 
trada, quando em 0, permite que um mi- 
croprocessador externo manipule os cir- 
cuitos internos do CP 400 Color, sen- 
do que suas funcoes sao semclhantes a 
entrada DMAREQ da CPU (pino 33). 
vista anteriormentc. 
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CONSORCIOS 

na era 

da informatica 



Os administradores de consorcios 
ja nao precisam se preocupar com 
previsoes e analises de grupos 
ou bens para urn eficiente 
gerenciamento de sua empresa, 
pois a informatica tern a solugao 
administrativa para o setor. 



Apesar do novo piano economico do 
governo, ainda continua muito dificil 
comprar urn automovel km, quer se- 
ja financiado ou (muito menos!) a vis- 
ta, pois o poder aquisitivo da grande 
maioria da populacao brasileira perma- 
nece abaixo de suas ncccssidades rcais. 

Dcvido a essa conjuntura, o consor- 
cio sc transformou no caminho ideal pa- 
ra todos aqueles que sonham com o car- 
ro favorito, transformando este setor 
cm grande gcrador economico: ate o ini- 
cio deste ano havia no Brasil cerca de 
500 empresas administradoras de con- 
sorcios, sendo que, so em Sao Paulo, 
existem aproximadamente 200 empre- 
sas — envolvendo no total milhoes de 
consorciados. 

O volume de negocios, previsoes e 
analises que envolve essas administra- 
doras e enorme e para que seu gerencia- 
mento seja eficiente e nccessario agili- 
dade em relatorios e comunicacao com 
consorciados, para que as assemblcias, 
lances e sorteios se transformem em so- 
lucao, nao em problema para a empre- 
sa ou consorciado. 

Por acreditar que a informatica e a 
base para se conquistar as solucoes ad- 
ministrativas necessarias ao setor, Jo- 
se Roberto Santana, diretor da Soficar 
S/CLtda., implantou a informatica em 
sua empresa atraves de um micro Super 
700, uma impressora P 720 c do Siste- 
ma Administrativo para Consorcios, da 
Prologica. 



"Tivemos uma grande surpresa ao 
utilizarmos o Aplicativo Prologica pa- 
ra Consorcios: os recursos sao muito 
mais podcrosos e as possibilidades de 
solucoes mais eficientes do que imagi- 
navamos. Porexemplo: pararealizara 
prcvisao de arrecadacao mensal, ma- 
nualmente, levavamosdoisdias. Hoje, 
com a implantacao desse sistema, em 
apenas duas horas elaboramos nao so 
a previsao, mas todos os controles ad- 
ministrativos e financeiros essenciais 
para a administracao de nossos 21 gru- 
pos de consorciados", afirma Santana. 

Alem da Soficar, o Consorcio Nacio- 
nal Massey-Ferguson e a Adetec — Ad- 
ministracao e Servicos tambem se utili- 
zam dos mesmos equipamentos e do 
mesmo sistema administrativo, que 
apresenta as seguintes solucoes: 

1 . Possibilita, em apenas duas horas 
apos o fechamento do mes, a previsao 
de arrecadacao para o proximo mes por 
grupo ou bem, atraves do Relatorio de 
Previsao de Arrecadacao. Com ele, a 
empresa tern a previsao exata da arre- 
cadacao por grupo, bem e geral , desta- 
cando os valores no juridico, em co- 
branca e diferencas de parcelas — agi- 
lizando recursos e administracao para 
o proximo mes. 

2. Permiteaagilizacaodo processo 
de cobrancas com relatorios que indi- 
quem os inadimplentcs, logo apos o fe- 
chamento do mes, com real controle de 
contemplacoes e debitos. 



3. Possibilita relatorios e histogra- 
mas atualizados, contendo a posicao ge- 
ral de cobrancas, lances, sorteios e con- 
templacoes de cada consorciado ou gru- 
po, para a realizacao de assemblcias. 

Alem de solucionar esses problemas 
essenciais para as empresas, com rela- 
torios de prcvisao de arrecadacao, con- 
sorciados em debito, histograma de pa- 
gamentos c extratos de conta corrcntc 
por consorciado, o sistema preve ain- 
da Iancamentos extras, como relatorios 
gerenciais (com a posicao financcira por 
grupo), relatorios contabeis (diario au- 
xiliar de pagamentos), relatorios opc- 
racionais (cadastros, tabclas de precos, 
vendas, cobrancas etc.) e a comunica- 
cao com o consorciado, que emite ma- 
la direta (etiquetas e cartas, carnes e de- 
monstratives). Isso ludo, so acionando 
teclas! 




Jose Roberto Santana, 
diretor da Soficar. 
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Voce quer comprar um computador? 

Entre num consorcio... 



O computador detem a segunda co- 
locacao na lista dos produtos mais ven- 
didos, atraves de consorcios, perdendo 
apenas para o automovel. Essa infor- 
macao foi dada pelo presidente da As- 
sociacao Brasileira de Administradores 
de Consorcios, Egidio Airton Modolo. 

Segundo ele, cxistem 19 mil grupos 
de consorcios, no Brasil, reunindo mais 
de 2 milhoes de consorciados, que bus- 
cam desde maquinas industrials ate 
avioes. 
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Computador 
controla cavalos 

A Associacao Brasileira de Criado- 
res de Cavalo Arabe esta informatizan- 
do suas atividades. O computador con- 
trola um arquivo com 2 mil socios e mais 
de 16 mil cavalos registrados. Alemdis- 
so, processa todos os dados da associa- 
cao, como cadastros, haras, mala dire- 
ta. Ainda cuida da documentagao tec- 
nica, veterinaria e supervisao de todos 
os animais. 
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Computador da NASA busca vida inteligente no espago 



Com imi computador acoplaclo a um 
radiotelescopio, uma equipe formada 
por engcnhciros, ffsicos e astronomos 
da NASA, Estados Unidos, tenta des- 
cobrir vida inteligente no cspaco pro- 
fundo, atraves dc sinais de radio. 

A equipe busca um tipo de sinal de 
faixa estreita de sintonizacao, produzi- 
do por outra civilizaeao tecnologica- 
mente adiantada, um sinal de alta- 
freqiiencia cxtrema nao produzido pc- 
la naturcza. 



W ,'-- 





" A informatica eofuturo do jorna- 
lismo", afirmou Roberto Civita, dire- 
tor superintendente da Editora Abril, 
em palestra rcalizada em Sao Paulo. 

Ele acrcdita que "havera uma total 



interligacao do mundo pela eletronica, 
alem de uma segmentacao dos mcios de 
comunicacao". 

O agente dessa revolucao, segundo 
Civita, c a informatica, que tendera a 



se fundir com a comunicacao, para 
atender um mundo que muda muito dc- 
pressa. 

"Com a informatica, c possivcl o 
acesso a bancos de dados de qualquer 
lugar do mundo. Com isso, tercmos in- 
formacoes mais globais, de melhor qua- 
lidade, em menos tempo", diz ele. 

Em termos de comunicacao, o tem- 
po e um fator fundamental. Roberto diz 
"que o reporter fara suas matcrias di- 
retamente em seus micros, no local on- 
dc o fato acontece, seja num estadio ou 
numa rcuniao poli'tica. Com isso, ga- 
nharemos mais uma vcz em agilidadc, 
rapidez e qualidade da noti'cia". 

"Quern dispoe de grande capacida- 
de de invcstimenlos deve pcnsar na mi- 
dia eletronica e seus desdobramentos — 
bibliotecas de video, discos a laser, equi- 
pamcntos de som e suas interligacocs 
— , pois as maquinas dc escrever estao 
a caminho de sc transformar em mamu- 
tes pre-historicos", conclui Civita. 



Mais um gol para a informatica 




Os grandcs astros do futebol mundial vao fazer "pipi" 
para o computador. Isso porque os exames antidoping 
da Copa do Mexico, prevista para comecar no final de 
maio proximo, serao controlados por computadores. E uma 
inovacao, pois eram utilizados meios clinicos menos cficicn- 
tes. Cada sedc tera uma equipe de controlc formada por tres 
medicos e (quern diria?) um especialista em computacao. 
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Aceita uma ta?a de vinho? 




A Europa esta usando o computador para analisar vi- 
nhos. Ele demonstra com muita exatidao se, no ano in- 
dicado pelo rotulo, a colheita de uva foi de boa qualida- 
de ou nao. Determina se o vinho foi envelhecido o sufi- 
ciente e adequadamentc na cave. O computador contem 
dados armazenados sobrc os mclhorcs vinhos dos ulti- 
mos vintc anos. Aceita uma taca? 
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marca pontos 
em torneio 
de boliche 



COLORII 



V 




CP 400 Color entra em campo e 
marca pontos em torneio de boliche. Es- 
sa bela jogada aeonteceu no "Torneio 
International Cidade de Sao Paulo", 
promovido pela Federacao Paulista de 
Boliche e disputado nas quadras do Mo- 
rumbi Shopping Center, no final de Ja- 
neiro, em Sao Paulo. Scgundo Z. 
Bauer, presidente da entidade, "o de- 
sempenho do CP 400 foi otimo e por is- 
so vamos utiliza-lo tambcm no Cam- 
peonato Brasilciro Interdube, progra- 
mado para abril, aqui em Sao Paulo" 

Durante o campeonato, o CP 400 
controloue ana lisoucentenasdc parti- 
das disputadas entrc 78 jogadores e 24 
jogadoras de todo o Brasil e do exterior, 
jogando em duplas, tercetos e indivi- 
dualmentc. 

Scgundo Ricardo Simoes Camara, 
criador do programa e operador do 
equipamento, essa e a segunda vez que 
o CP 400 Color entra no time dos orga- 



nizadores. "Ele c rapido, agil e ao ter- 
inino dc cada part ida in forma ao joga- 
dor a sua classificacao", diz Ricardo. 

A ideia, scgundo ele, surgiu de uma 
brincadcira: "Meu tio Carlos Eduardo 
Maia Simoes e apaixonado por boliche 
e informatica. Ele resolveu dcsafiar o 
juiz na contagem de pontos c controlar 
suas atuacocs. No desenrolar do tor- 
neio, vcrificou-seque todos os partici- 
pantes se dirigiam ao CP, e nao a mesa 
controladora, para obter infor- 
macoes". 

Trabalhando simultaneamentc com 
uma impressora P 500 serial, da Prolo- 
gica, o Color emite listagens com infor- 
macoes sobre a atuacao de cada joga- 
dor na partida, os pinos (pontos) acu- 
mulados, o niimero de jogos disputados 
e a media de acerto nas batidas. Ricar- 
do afirma "ser impossivel calcular na 
ponta do lapis tantas contas com preci- 
sao e rapidcz". 



Jandira, campea individual do femi- 
ninodiz: "Euso jogo, a contagem dos 
pontos fica para o CP 400". A mesma 
opiniao tern Milena, campea de duplas 
eviccdoindividual: "Com ocomputa- 
dor a contagem fica mais rapida e c mui- 
to confiavel", diz ela. 

Para analisar a classificacao media 
por partidas e mantcr informados todos 
os jogadores, o CP mcrgulha na memo- 
ria c os agrupa cm duplas, tercetos ou 
mantem o jogador isolado conforme a 
modalidadc da partida. "Ao cntrar na 
quadra para a disputa, o jogador jaco- 
nhece a sua atuacao anterior e quantos 
pontos devera tirar dos outros adversa- 
ries. Alem disso, o CP 400 movimenta 
constantementc a relacao de pontos e 
mostra no video os dezesseis primeiros 
colocados que vao disputar as finais do 
torneio", explica Ricardo. 

"O programa foi dcsenvolvido 
associando-se um niimero especifico 
(ou codigo) ao nome de cada participan- 
te, visando a economia de caracteres do 
computador", dizclc. "Seusasseo no- 
me de todos os inscritos, a memoria de 
64K seria insuficicnte", conclui. 
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GERAgAO PROLOGICA 



COMPATlVELCOM 

- 1 IBM PC/XT 
(*) 



«/ /.w.w.v.v.yfc VflrA \\V.\ 



VERSAO I (precos sobconsulla) 

2 drives, slims, FD/DD, 320 kbytes 
VERSAO II 

1 drive FD/DD, 320 kbytes memoria 
RAM e Winchester 5 Mbytes. 

VERSAO III 

1 drive FD/DD, 320 kbytes memdria 
RAM e Winchester de 10 Mbytes. 

VERSAO IV 

1 drive FD/DD, 320 kbytes mem6ria 
RAM e Winchester de 15 Mbytes. 



EXPANSAO DE 
MEMORIA 



Placa expansSo de 320 kbytes, ex- 
pandindo ate 1 640 kbytes de memo- 
ria RAM p/SP16 . 



(011) 2237388 



/ SP16 

PROLOG1CA 




• Placa de CP/M 
r p/SP-16 com 64 kbytes. 
Transforma restante da me- 
mbriaem RAM DISK . 



COMUNICACAO 



- Placa rede de comunicacSo NCT- 
7301, p/interligar varios SP-16. 

- Placa emuladora de terminal I8M 
3278/3279 NCT7101 PCOX. 

- Placa de comunicapao BSC3 NCT- 
7501 

- Placa emuladora de terminal IBM 
3278/3279 NCT-7201 IRMA 

- Placa BACKUP disco rfgido p/video 
cassete NCT-6201 



ASSISTENCIA 

TECNICA 



Direto: (011) 220-5794 

Consertos e contrato de manutencao. 



MICROS 



• CP500 022DM80, 1 drive FD/DD, 
DOS-500, CP/M 80 colunas. 

• CP500 023DM80, 2 drives FD/DD, 

DOS-500, CP/M 80 colunas. 

• CP400 color II 64 kbytes. 

• CP200S, 16 kbytes. (precos sobconsulta) 



INTERFACES E 
PERIFERICOS 



Cabos de ligacSo micro/impressora 

* IBM e marca registrada da Interna- 
tional Business Machine 



PROGRAMAS- SP16 
E CP500 CP/M 



Controle de estoque . 
Contabilidade 



Folha de pagamento 

Contas a pagar e receber 

Cadastro de clientes 

Mala direta ^^^^^^_ 



DATAFLEX mono e multiusuario 
8e 16 bits 



CONSULTE OUTROS SOFTWARES. 



S U PRIMENTOS 



Diskettes 5 
desFS/DD. 
FD/DD 



1/4" caixa com 10 unida- 



Formulario contfnuo 1 via: 

80 colunas (milh.) 

132 colunas (milh.) 

Fitas p/impressora: 

P500 

P720 

P740 



Mesa p/computadores . 



Estabilizadores de tensao: 

0,8 kVA 

1.5 kVA 



Software video texto p/CP 500. 



Modem EMBRACOM 

CP532C (RS232/CP500). 
Serial 300 



Joystick CP400 

Monitor colorido p/SP16 . sob consults 
Placa CP/M p/CP500 M.80 com 128 
kbytes RAM 



IMPRESSORAS 



•P500S paralela ou serial 150 CPS, 80 
colunas, caracteres normais, compri- 
midos e expandidos, grafi co co mpati'- 
vel com MX-80 . f[jjfl 

P720 paralela e serial 200 CPS 132 
colunas e compati'vel com MX-100. 
•P740 paralela e serial 400 CPS, 132 
colunas . 

OBS.: Impressoras P500 e P720 densi- 
dade grafica compati'vel com graficos 
LOTUS 1, 2, 3, Picture Graphic, etc. 




FILCRES ELETRONICA ATACADISTA LTDA. 

Rua Aurora, 165/179 - Sao Paulo — SP — Estacionamento prdprid 

Tels.: Vendas (PBX) 223-7388 - 2220016 - 223-7234 



BAURU-SP 

Microl6(jica Tel. (0142123-6 1 42 

BELO HORIZONTE - MQ 

Com putronixTol. 1031 1225-3305 

DigHogica Tel.(03l 1223 4966 

CAMPINAS -SP 
j Soil En ByteTol.10192152^369 

CAMPO GRANDE -MS 
I New Lino Tel.<067)3824682 

CATANDUVA - SP 

Catonduva 

MiqiilnaiTol. 10175122-6167 

CURITIBA-PR 

CSR Tel. (0411232-1750 



Rovondedoroi autorizados 

FERNANDOPOLIS -SP 
Compshow Tsl. 10174142-1697 
FORTALE2A - CE 

Sitcomp Tol.:|085l244-4911 



GOlANIA - GO 

Sod New Tel.10621224-9322 

GOVERNAOOR VALADARES 

MG 

Computron Tel. (0332)21-8412 

NATAL - RN 

Maximicroi Tel. 1084)2334918 

POqOS OE CALDAS - MO 

Micro Pocot Tel.l035)72M8B3 



PORTO ALEORE - RS 


ladorat Tel. (01 1 1670-1 5SS 


SOS Tel. 101 1)826-0456 


Hereof Tel.:(0512)25-4923 


Bomi Microcompu- 


SAO VICENTE - SP 


RECIFE -PE 


tadores Tol.101 1)93-1 102 


Allo-Roso- 


Ccoma Tel. (0811325-3493 


Cilly Micro Telt.10111 


lucoo Tol.10132167-2496 




831-0944/832-9458 


TAU8ATE - SP 


RCO DE JANEIRO - RJ 


Iguaiemicro Tol.:(01 1)816-9701 


Ensicom Tol. (0122133 2944 


Sinclair Place Tel. (021)549-2699 


Gsrra Tel (01 1 1884-3042 


UMUARAMA - PR 


Sineco Toi. (021 1220-9613 


NC Micm Tol.101 1)633-4388 


CBM Tcl.(0446)23-2233 


SAO BERNARDO DO CAMPO 


Opus Informa- 


VIT0RIA-ES 


SP 


tics Tol.101 1)273-5757 


Case dos Tele- 


Micro's Tel. 10 111448-6234/ 


Provac Tol.fO1 1)274-5861 


fones Tol. (027)222-5011 


441-2122 


Tropical Tol.101 1)643-9859 


Composoll Tol. (027)222-5758 


SAO PAULO - SP 


Sisoc Tel. 101 11283 0853 


WR Compu- 


Benny Microcompu- 


Cisiec Tol.101 1)288 5413 


ladoros Tol.(027)2253144 




CLUBE 




CLASSIFICADOS 




Gostaria dc rcceber informacoes sobrc como participar do 
CLUBE CP's e quais sao suas vantagcns. 

Rodolfo Constantc Marlins — Rua Ceara, 335 — 
Jardim Riviera — 14400 — Franca — SP 

Nola da Redacao: Caro Rodolfo, consideramos a informa- 
tica urn setor essencial para todas as atividades que exijam 
cficicncia, rapidez e possibilidades de varias opcoes de in- 
formacao para sua cxeeucao. Como ferramenta de traba- 
lho, lazer e educacao, a computacao vem demonstrando ser 
a base para urn efetivo desenvolvimento social c tecnoI6gi- 
co. Por isso, acreditamos que os intcressados nao so devem 
tcr acesso a lodas as informacoes possiveis sobre esta area 
— quer sejam de um veiculo dc comunicacao do setor em- 
presarial como do govemo — mas, principalmcnte, criar 
o habito do intercambio dessas informacoes cnire os pro- 
prios usuarios. O CLUBE CP's tern como principal mcta 
alimentareste habito (democratizar informacoes) entre to- 
dos os intcressados em informatica, alem de publicar matc- 
rias, dicas e programas de interessc gcral atraves da Gera- 
cao Prologica. Se voce gostou, scja bem-vindo. 
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Programas com som para o CP 200, TK 85 e compativeis. 
Os intcressados devem escrever para: 

Haroldo Souza Ferreira — Caixa Postal 81.825 — 
CEP: 27500 — Resende — R.l 



COMPRO REVISTAS 



Desejo adquirir os mimeros 1 a 9 e 12 da Geraviio Prologi- 
ca. Porem tenho maior intcresse no ultimo. 

Marcelo Franca Alves — Rua Eunice Bechara de Oliveira, 
726 — V. Fazzioni — CEP: 05884 — Sao Paulo — SP 





Desejo comprarou trocar os niimeros 1 , 2,3, 5 da Geracao 
Prologica pelos programas para o CP 300 versao fita cassete. 

Hcldcr Antonio Simoes — Rua Des. Oldemar Pacheco, 
355/201 fundos — CEP: 21231 — Vista Alegre — RJ 



PROGRAMAS PARA O CP 400 



Quero trocar programas para o CP 400. Os intcressados de- 
vem enviar correspondencia e lista de programas disponi- 
veis para a troca. 

Fernando Monteiro Guerrero — Rua B, 116 — Jardim 
Noronha — CEP: 37550 — Pouso Alegre — MG 



GERACAO PROLOGICA 








1 600m 2 para Ihe proporcionar o melhor atendimento. 



FILCRES 10 a*> 



ATENDIMENTO 
PERSONALIZADO: 

Equipes especializadas para 

orienta-lo ou demonstrar 

equipamenlos em lodo o 

terrilc-rio national. 



ASSISTENCIA 
TECNICA: 

Profissionais allamenle 

qualificados. 

aptosaatender 

qualquertipodenecessidade. 



TREINAMENTO 
ECURSOS: 

Manlemos cursos e Ireinamento 

de operacaogratuitos, 

incluindo aulas praticas 

e material didatico. 




INFORMATICA: 

Complela linhade perilericos 
e computadores, desde 
pessoais ale Sislemas 
prolissionais. 



SUPRIMENTOS 
PARA CPD: 

Diskettes, formularios. litas 
para impressoras etc. . . 
aprontaentrega. 



INSTRUMENTOS: 

Equipamentos de teste e medicao 
para as diversas areas 
da Eletronica e Informatica. 



AJUDANDO A DESENVOLVER TECNOLOGIA 

Ru» Aurora, 165 - SP - Tel.: PBX (Oil) 223-7388 - Telax 1011)31298 Dirato - S> - 223-1446/ 
222-3458/220-91 13/220-7954 Direlo outrot Eitados: 222-5430/221-0326/223-7649/222-0284 
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CP500/Mra grande solupao. 

Garantia da maior biblioteca 
de programas aplicativos. 



O CP 500/M 80 agora tambem e compati- 
vel com CP/M, o Sistema Operational 
mais difundido no mundo. Isso significa 
que, somando o traditional DOS 500 
com o CP/M, voce passa a dispor da maior 
biblioleca dc programas aplicativos do 
mercado. Trata-se da solucao inteligente 
e rational para o seu dia-a-dia, permitindo 
a voce lirar vanlagem de programas coma 



CalcStar*. dBase II*, WordStar* e muitos 
ouiros, que vao agilizar lanio a sua vida 
quanto a da sua empresa: Folha de 
Pagamento, Controle de Esioque, Contas a 
Pagar/Receber, Administraeao Hospiialar, 
Calculo Estrutural, Sistema de Balancea- 
mento de RacOes c ouiros programas espeei- 
ficos para o seu ramo de atividade. 
O CP 500/M?" possui saida paralela para 



Caractcrislieas 


Sisicma Operational 


Video 12" fosforovcrdc com controle dc 

intensidade 

Tcclado profissionul capacilivo com liumerico 

reduzido 

Inlctfacc para impicssoru p;iralcla 

Interface serial padrao RS232-C (opcional) 

FreqUencia deOpetacao: 2 Mil/ 

Unidadc dc som coin controle dc volume 

Opera com 1 ou 2 drives dc face simples ou dupla 




Manilla RAM 

Mcmoria ROM 

Compatibilidade 

video 


SO0S DOS 500 




64 Kbytes 48 Kbytes 

2 Kbytes 16 Kbytes 

CP/M- TKS-DOS 

SOcolunaspor 64 ou 32 colunas 
24linhas porl6linhas 





impressora, e voce pode instalar facilmente 
lima porta RS232-C, que o coloca em 
coiuaio com a Rede International de 
Tclcmatica, alem do Videotexto, Cirandao, 
Amanda etc. Conheca no seu revendedor 
mais proximo o CP 500/M 80 . 

Urn grande passo na informatica, com a 
qualidade CP e a Tecnolbgia Prologica. 





COHPUIADOFIES PESSOAIS 



TECNOUDGIA ■■■ 
PHOLOOCA .■■■ 



* MlTGU Kcfiuradav 



< 

< 

cr 
< 

Q. 



o 
9 

Q 

z 
ill 
> 



UJ 
Q 

o 

Q- 

o 



< 

o 

o 
■o 

-1 

o 
cr 

o 
•< 
o- 
< 

en 

LU 

o 

cr 
< 

Q 



< 

CC 

2 



LU 

cr 
< 

a. 

UJ 

O 

H 
Z 
UJ 

HI 

1 

H 
ffil 




■i :j :: < ■• i ii fi i ir %w 1 11 






(NDICE 



1. FESTIVAL DE ROCK 

Desenhc com o scu CP 400 Color todos os logotipos clos mclhores con- 
juntos do mundo 2 

2. RESOLUCAO DE TRIANGULOS 

Transformc scu CP 500 (qualqucr modclo) cm urn Albert Einstein. Para 
comecar, descubra os angulos dc qualquer triangulo 6 

3. BOLICHE 

Teste sua habilidade fazendo urn Strike com seu CP 400 Color 8 



APLICATIVO 



FESTIVAL DE ROCK 



Alencao, roqueiros! Finalmente o 

que voces eslavain esperando. Alraves 
do Festival de Rock voces terao arqui- 
vados os logotipos dos melhorcs con- 



juntos do mundo. Entrc elcs: YES, 
QUIET RIOT, ZZ TOP e outros. 

Para entrar nessa loucura, digiie o 
programa c siga as instrucoes abaixo: 



1 — Digite a inslrucao RUN. 

2 — Apos a const rucao do palco, di- 

gite A on B (as teclas A e B con- 
trolam a variacao de cor). 

3 — Digite uma das letras corres- 

pondentes aos conjuntos e es- 
perc pela surpresa. 



10 

20 

30 

40 

50 

60 

70 

30 

90 

100 

110 

120 

F 

130 

140 

150 



**************************** 
'* FESTIVAL * 

'* D E * 

'* ROCK * 

'* (CP-400 COLOR) * 

'* * 

'*: : : IHRURZCIQ: : : :* 

' **************************** 

G0T02910 
PM0DE4 , 1 : PCLSO : SCREEN1 , 1 
LINE (0,170) -(255, 174) ,PSET,B 
LINE(0,174>-(255,192) ,PSET,B 



PM0DE3,1 

P0KE17Q , 50 : PRINT ( 12S , 2 ) , , 4 

F0RI=1T040STEP4 : IK=RND ( 3 ) +1 : 

COLOR K , K : : LINE ( I , ) - ( I , 170 ) , PSE 

T : LINE ( 254-1 , ) - ( 254-1 , 170 ) , PSET 

:NEXT 

160 F0RI=2T0120STEP2 : K=RND ( 3 ) +1 : 

CIRCLE (0,0) , I,K, -4,0, .25: CIRCLE ( 

255, 0), I, K, .4,-25, -5: NEXT 

170 LINE(70,48)-(1S2,100) ,PSET,B 

F 

ISO PM0DE3,1 

190 DRRW"BM76,94C2U12R4F2D2G2L4R 

4F2D4BRSH2USE2R4F2D3G2L4BR14R4NE 

2L4H2USE2R4NF2BR3D12U6R2E4NU2G4F 

4D2BR4BU6R6BD6BR6U6NR4U6R6BR6" 

200 DRRW"NR6D6NR4D6R6BR6R8U6LSU6 

R8BR4R4ND12R4" 

210 F0RI=6T0120STEP16 : I$=STR$ ( I ) 

:Y$=STR$( 256-1) 

220 DRRW"BM"+I$+" , 1SSC3U4NR4U4R4 

DS" 

230 DRRW"BM"+Y$+" , 1SSC2NL6U4NL4U 

4L6R2D8" 

240 NEXTI 

250 X$=INKEY$:IFX$="R"THEN260ELS 

EIFX*="B"THEN270ELSE250 

260 R=3:R$="C3":G0T0280 

270 R=2:R*="C2":G0T02S0 

280 CLS3:PRINT@132," A) THE ROLL 

ING STONES "5 

290 PRINT@164," B) RSIR"+STRING$ 

(15,32) ; 



300 PRINT@196," C) QUIET RI0T"+S 

TRING$<9,32> ; 

310 PRINT@228," D) 2 Z T0P"+STRI 

NG*(12,32) ; 

320 PRINT@260," E) VRN HRLEN"+ST 

RING* (10, 32) ; 

330 PRINT@292," F) YES"+STRING$ ( 

16,32) ; 

340 PRINTS324," G) 33 SPECIRL"+S 

TRING$(9,32) ; 

350 PRINT@356," H) RC-DC+STRING 

$(14,32) ; 

360 X$=INKEY*:IFX$=""THEN360 

370 X=RSC(X$)-64:IF X<1 THEN 360 

ELSE IF X>3 THEN360 
380 ON X GOTO 400,760,940,1170,1 
590, 1330,2210,2660 
390 G0T0390 

400 PM0DE4 , 1 : PCLS1 : SCREEN1 , 1 : PMO 
DE3,1 

410 CIRCLE (110, 110) ,66,1,1.2,-07 
, .45 

420 CIRCLE(122,140) ,72,1,1.1,-5, 
.73 

430 CIRCLE (152, 150), 60, 1,1. 5, -53 
,•7 

440 CIRCLE ( 154 , 152 ) , 58 , 1 , 1 - 4 , - 53 
,.76 

450 DRRW"S4C1BM96,148DLDLU6BM154 
, 70R4E4R2F2R4F2R10E4M200 , 74 " 
460 F0RI=0T02: CIRCLE (238+1, 150) , 
72,l,l-3,-5,.67:NEXT I 
470 DRRW"BM130,68L4HLHLHLUHUL6G2 
BD10BL6G22D2G2DGDGDLDLD2LD4L2D16 
F2R2FR2E2U2E2U16EUEUEU2EU2M106 , 7 
4" 

480 DRRW"BM164,S2NL4G20" 
490 CIRCLE(19S,180) ,88,1,1-3,-57 
, -68 

500 DRRW'BMllS, 13SD6F2RSE2U4E2U4 
E2U4E2U6E2U6E2U4E4" 
510 DRRW"BM86,74H10L2H4L2U6E4R2E 
4R2E2R2E2R2E2R2E4 " 

520 CIRCLE ( 134 , 72 ) , 44 , 1 , 1 . 8 , - 58 , 
-86 
530 CIRCLE (180,20) ,24 , 1 , - 9 , - 6 , .9 
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540 CIRCLE(240,0),40,1,1.1,.3,.4 
4 

550 CIRCLE(230,56),22,l,.7,-75,. 
2 

560 CIRCLE(255,152),60,1,1.5,.55 
,.72 

570 CIRCLE(170,104),34,l,1.4,.l, 
.25 

580 CIRCLE(130,60),32,l,-7,.6,.9 
590 CIRCLE(182,58>,24,1,.7,.65, . 
95 

600 DRRW " BM166 , 46G3L4H2BL50G8L2G 
2L2G2L2F8BR122BH16F2R2F2R2F2R2F2 
D2F2G4L2G2L2G2L2G6 " 
610 CIRCLE (180,20) , 16, 1 , .6, .4, . 1 
620 CIRCLE(134,18),19,l,.6,.4,.l 
630 DRRW "BM 124 , 24R4E2R2E2R4F2R2F 
2R2BR24BD2R2E2R2E2R6F2R6 " 
640 CIRCLE(170,44),24,1,.9,.12,. 
4 

650 CIRCLE(132,44),25,1,.9,.12,. 
4 

660 CIRCLE(104,54),10,l,.9,.l,-4 
5 

670 CIRCLE<200,44),20,1,1.3,.13, 
.4 

680 PRINT(130,66),1,1 
690 PRINT(140,4),R,1 
700 PRINT(118,76),R,1 
710 PM0DE4 , 1 : DRRWC0BM181 , 152NL3 
NR3D6BR8U6F4E4D6 " : PM0DE3 , 1 
720 DRRW"BM22 , 2C1R4ND8R4BR4DSU4R 
6U4ND8BR6NR6D4NR4D4R6BL80BD6 " 
730 DRRWND8R6D4L6R2F4BR6U8R6D8N 
L6BR6NU8R6BR6NU8R6BR6NU8BR6U8F8N 
U8BR6U8R8ND2L8D8R8U4L4 " 
740 DRRW"BD18BL66R6U4L6U4R6BR4R4 
N08R4BR4D8R6U8NL6BR6ND8F8U8BR6NR 
6D4NR4D4R6BR6R6U4L6U4R6 " 
750 X*=INKEY$:IFX*=CHR*(13)THEN 
280 ELSE 750 
"T60 PM0DE4,l:PCLSl:PM0DE4,3:PCLS 
A3 l:SCREENl,i:PM0DE3,l 
770 FOR 1=1 TO 255 
780 DRRW " S4C3BM30 , 70E48F48L 1 6H 1 2 
L38G 12L16M24 , 72E54ND4F54L2UL3UDR 
3DR2L24ER2EGL2GH12NE2L34NH2G12NH 
2L24BR46NR40E12F3R11F2L14H2G7R28 

■a 

790 DRRW"BF2BR10R15HBNR14H2R12H4 

4R34E4F14L22F44NL30L2UL2UL2NL26H 

44FR2FNR2HL2HR22FR2FHL2H9NU4G2L3 

0HLRF45LHLHL14E6D4NG2U4BE10E8D4N 

G5ND11U22E10F10D52H4U48NR2H6NU4G 

6NL2D38" 

800 DRRWU22BE16E3D4NG3U4F55L22H 

12L24U2R26NG2F12NG2R13NH48RFR" 



810 P0KE178,I 
820 PRINT(46,65>,,3 
830 PRINT (120, 24),, 3 
840 PRINT (156, 24),, 3 
850 PRINT (176, 40),, 3 
860 PRINT(83,68),,3 
870 PCOP Yl T04 : PC0PY2T05 
880 Y=RND(4):IF Y=3 THEN 880 
890 PM0DE1,1!PCLS(Y):PM0DE3,1 
900 IF Y(4 THEN 920 
910 LINE(0,0)-(256, 92), PRESET, B 
920 X*=INKEY*:IFX*=CHR*(13)THEN 
280 ELSE NEXT I 
930 60T0760 
_ J240 J=0 

n o 950 PM0DE4 , 1 : PCLS ( J ) : SCREEN1 , 1 : P 

WK M0DE3,1 

960 DRAW R* 

970 DRflW"S4BM20, 10GSD40FSR22FSR2 

0H16U40H8NL26BL8BD14D2SL10U28R10 

BU14BR26" 

980 DRRW"D48F8R30ESU4SL18D40L10U 

40L18BR56D56R18U56NL18BR10D56R40 

U14L20U8R20U12L20USR20U14L40" 

990 DRRWBR46D14R16D42R20U42R16U 

14L52" 

1 000 DRRW " BD72BL 1 56D56R 1 SU22F 1 OD 

12R18U22HSE8U10H8L38R18BD14D8R8U 

8L8BU14BR38D56R18U56NL1SBR20G8D4 

0F8R30E8U40H8L30R 10BD42R 10U28L 1 

D28BU42" 

1010 DRRW"BR36D14R16D42R20U42R16 

U14L52" 

1020 PRINT(20,14),R,R:PRINT(70,1 

4),R,R:PRINT(130,14),R,R:PRINT(1 

52,14),R,R:PRINT(200,14),R,R 

1030 PRINT ( 40 , 86 ) , R , R : PRINT ( 100 , 

86),R,R:PRINT(140,86),R,R:PRINT( 

200,86) ,R,R 

1040 PM0DE4,1 

1050 F0RI=2T0200STEP4: CIRCLE (128 

,72),I,J,.9:NEXT 

1060 PM0DE4,l:SCREENl,l:PM0DE3,l 

1070 DRRW"BM26 , 170C2U13F8E8ND13B 

R8NR10DNR10D5NR8DNR8D5NR10DR10BU 

1 3BR6R 1 4DL7ND 1 2L7 " 

1080 DRRWBD12BR20U13R10DNL10D5N 

L10DNL10D6BR8NU13UNR10DR10" 

1090 DRRW"BR16U13D6NR8DR10U7D13B 

R8U13NR10DNR10D5NR8DNR8D5NR10DR1 

0" 

11 00 DRR W " BR8U 1 3NR8DNR8D5NR 1 ODR 1 

0U7D13BR8NU13UNR10DR10BR2BU13R14 

DL7ND12L7BR20UD13U7NR10DR10U7D13 

1110 DRRW " BM26 , 152R200DL200BD22R 

200DL200" 

1120 IF J=l THEN 1140 
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1130 FDR U=l TO 4:PC0PY U TO U+4 
xNEXT U:J=l:G0T0950 
11 40 PM0DE4,1:SCREEN1,1:F0RI=1T0 
200: NEXT I 

1150 PM0DE4,5:SCREEN1,1:F0RI=1 T 
0200: NEXT I 

1160 X$=INKEY*:IF X*=CHR*(13) TH 
EN 280 ELSE 1140 
TTl?© PM0DE4 , 1 : PCLS1 : SCREEN1 , 1 :PM 
22. 0DE3 , 1 

1180 DRRW"S4C1BM0,0R100G36L22E30 

G4L50NU4R50E4L90U10R100G44R200U6 

NL166U6L160NG6E26L24" 

1 1 90 DRRW " BR30BD8G6R 10G8R 1 0E8R8E 

6NL26BR8R28G14L28E14R10BG4R8G6LS 

E6BH4BR34R28G10L16G4L10E14BF4R8G 

2L8E2GR8" 

1200 PRINT (168, 20), 1,1 

1210 F0RI=0T020STEP4: LINE (128-1, 

100)- (128-1, 170-1/2 ),PSET:LINE(1 

28+1, 100) -(128+1, 170-1/2) ,PSET:N 

EXT 

1220 CIRCLE(128,102),30,1,.3,.57 

,.92 

1230 CIRCLE(128,140),32,l,l.l,.l 

,.42 

1240 DRRWBM102 , 100D56BR52U58 

1250 P0KE178,43:PRINT(12S,98),,1 

1 260 PM0DE3 , 1 : FOR Y=OT08BSTEPBB : F 

0RI*0T02 : CIRCLE ( 84+Y , 120 ) , 18-1 , 1 

,.9:NEXTI,Y 

1270 PM0DE3,1 

1280 DRRW"C1BM88, 106U22E6R66F6D2 

2BL4BU12U8H6L58G6D8E4R60F4H4L20E 

4L30G4" 

1290 CIRCLE(44,148),36,1,.9,.4,. 

9:CIRCLE(212,148) ,36,1, .9, .62,1- 

1 

1300 CIRCLE(60,192),54,1,.5,.67, 
.9 

1310 CIRCLE(194,192),54,1,.5,.62 
,.87 

1320 DRAW"BM20,168F2R6BD4BR74F4R 

44E4BU4BR70R12E4 " 

1330 PRINT ( 128 , 176 ) , R , 1 

1340 PRINT(128,79),R,1 

1350 PRINT (128, 82), 1,1 

1360 PRINT (128, 190), 1,1 

1370 PRINT(250,2>,1,1 

1380 P0KE178,30:PRINT(40,8),,l:P 
RINT(90,30),,1 

1390 PRINT ( 130, 18 ),,l: PRINT (160, 

18), ,1 SPRINT (200, 18) , ,1 

1400 P0KE178,0:PRINT(20,4),R,1 

1410 PRINT(250,34),R,1 

1420 DRAW " BM20 , 126C4U90R40BR170B 

D8D80" 

1430 PM0DE4,1:F0RI=1T012: CIRCLE ( 



70,0), 56+1, 1,1- 9, .25,((38+I)/100 
):CIRCLE(186,0),56+I,1,1.9,((50- 
(38+1) )/100) , -25:NEXT 
1440 F0RI=22T031STEP3: CIRCLE (44, 
148),I,0,.9,.2,.9:CIRCLE(214,148 
),I,0,.9,.62,.35:NEXTI 
1450 PM0DE4, 1 :SR*="C1NE20NH20NU5 
NR5NL5ND5NG20NF20" 
1460 DRRW"BM150,160"+SR* 
1470 DRRW "BM75, 108 "+SR* 
1480 FORI=1T0350:W=RND(190)+30:U 
6RND(110)+45sPM0DE3,l 
1490 IF PP0INT(W+l,U)=R+4 THEN 1 
510 

1500 PM0DE4,1:PSET(W,U) 
1510 NEXT l:PM0DE4,l 
1520 SR*="C1NU5ND5NL5NR5NE2NF2NB 
2NH2" 

1530 DRRW"BM110,50"+SR$ 
1540 DRRW"BM150,60"+SR* 
1550 DRfiW" BM60 , 70 " +SR* 
1560 DRRW"BM190,65"+SR* 
1570 DRRW"BM128, 130C1NH22NE22BD1 
6NH20NE20" 

1580 X*=INKEY*:IF X*sCHR*(13) TH 
EN 280 ELSE 1580 
. U 1590 PM0DE4 , 1 : PCLSO : SCREEN1 , 1 : PM 
^ 0DE3 , 1 : PCLS2 

1 600 DRR W " C 1 BM 1 1 2 , 66M90 , 32M8 , 32M 

14 , 40M78 , 40M82 , 46M20 , 46M26 , 54M86 

, 54M90 , 60M32 , 60M38 , 68M94 , 68M1 12 , 

94M150 , 32M104 , 32M1 10 , 40M128 , 40M1 

12 66" 

1610 DRRW"BM230,60M182,60M186,54 

M236 , 54M242 , 46M190 , 46M194 , 40M248 

, 40M254 , 32M184 , 32M166 , 60M154 , 60M 

166 , 40M172 , 40M177 , 32M158 , 32M1 16 , 

100M124 , 110M150 , 68M162 , 68M132 , 11 

8M140 , 128M176 , 68M224 , 68M230 , 60" 

1620 DRRWBM14 , 40M30 , 46BM26 , 54M4 

2 , 60BM38 , 68M54 , 74M96 , 74BM1 12 , 93M 

1 16 , 96BM90 , 32M104 , 40M1 16 , 58BM150 

,32M154,35" 

1630 DRRW"BM177,32M1B2,36BM172,4 

0M177 , 44BM166 , 40M172 , 44NR4M161 , 6 

0BM236 , 54M220 , 60BM248 , 40M232 , 46B 

M224 , 68M208 , 74M184 , 74M176 , 68M184 

,74M150,132M140,128" 

1640 DRRW" BM124 , 1 10M130 , 1 1211154 , 

74NR4M149 , 68BM186 , 54M194 , 60BM194 

,40M202,46BM110,40M120,44R4" 

1650 PRINT(30,38),3,1 

1660 PRINT (220, 38), 3,1 

1670 PRINT (128, 118), 2,1 

1680 PRINT (172, 50), 4,1 

1690 PRINT (168, 52), 4,1 

1700 PRINT(2,22),4,1 

1710 FOR U=1T04:PC0PY U TO U+4:N 
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EXT U 

1720 PM0DE3,5 
1730 PRINT(172,50),1,1 
1740 POINT (168, 52), 1,1 
1750 PRINT(2,22),1,1 
1760 PM0DE3,5:SCREEN1,0:F0RI=1T0 
900:NEXTI 
. 1770 X*=INKEY$:IFX*=CHR*(13)THEN 

280 
1780 PM0DE4,1:SCREEN1,1:F0RI=1T0 
900:NEXTI 
1790 X*=INKEY*:IFX*=CHR*(13)THEN 

280 
1800 PM0DE3,5:SCREEN1,1:F0RI=1T0 
900:NEXTI 
1810 X*=INKEY*:IFX$=CHR*(13)THEN 

280 
^1820 B0T01760 
p- 1830 IF R=3 THEN RC*2 ELSE IF R= 
- 2 THEN RC=3 

1 8 40 PM0DE4 , 1 : PCLS 1 : SCREEN 1 , 1 

1850 DRRW"BM86,30C0U10H10R8F6E6R 

8G10D10L8BR30U20R20D4L14D4R14D4L 

14D4R14D4NL20BR18R20U12L16U4R16U 

4L20D12R16D4L16D4" 

i860 PRINT(90,27),0,0 

1870 PRINT (120, 27), 0,0 

1880 PRINT (160, 27), 0,0 

1890 CIRCLE(128,96),60,0,.6 

1900 DRRW"BM12S,96C0ND34M169,71B 

M128,96M87,71" 

1910 CIRCLE(12S,96>,82,0,.6,.85, 

.67 

1920 DRRW"BM128,96BH30H10L4F10BM 

128,96BE30E10R4G10" 

1930 LINE ( 116, 144)-(140, 176 >,PSE 

T,B 

1940 COLOR 1,0 

1950 LINE(117,143)-(139,146),PSE 

T,BF 

1960 PRINT (140, 140), 0,0 

1970 LINE (126, 131 )-( 130, 188) , PRE 

SET.B 



1980 

T,BF 

1990 

B 

2000 

2010 

T,B 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 



LINE ( 127 , 132 ) - ( 129 , 187 ) , PSE 

LINE(26, 95)-(68, 97) , PRESET, 

LINE(28,96)-(66,96) ,PSET 
LINE ( 230 , 95 ) - ( 188 , 97 ) , PRESE 

LINE(228,96>-(190,96) ,PSET 

PM0DE3 , 1 

PRINT (140, 140 ),RC, 4 

PM0DE4,1 

CIRCLE(128,96),60,0,.6 

PM0DE3,1 

CIRCLE(128,96),60,1, -6 

DRRW"C1BM128,96ND34M169,71B 



M128,96M87,71" 

2100 PC0PY2T07:PC0PY3T08 

2110 FOR 1=1 TO 240 

2120 PC0PY7T05:PC0PY8T06:PM0DE3, 

4 

2130 PRINT(128,92),1,1 

2140 P0KE178,I 

2150 PRINT(84,78),,1 

2160 P0KE178,I+2 

2170 PRINT (172, 78 ),,1 

2180 PC0PY5T02 : PC0PY6T03 

2190 X*=INKEY*»IF X*=CHR*(13) TH 

EN 280 ELSE NEXT I 

_J200 G0T02110 

-^ -a 2210 PM0DE4,l:PCLS0:SCREENl,l 

•O2220 CIRCLE (128, 96), 94,1,. 85 

2230 CIRCLE (128, 96), 90,1,. 85 

2240 PRINT (128, 18), 1,1 

2250 DRRW"C0BM40, 120NF14DNF14DNF 

14DNF14DNF14C1BU10F14U10F4D16H14 
■1 

2260 PRINT (50, 126), 1,1 

2270 F0RI=64T0140:LINE(200,I)-(2 

30 , 1+12 ) , PRESET : NEXT 

2280 LINE ( 10 , 24 ) - ( 1 10 , 80 ) , PRESET 

iBF 

2290 PM0DE3,l:F0RI=0T03: CIRCLE (1 

28,96-1) ,94+1,3, .85, .6, .67:NEXT 

2300 DRRW"C4BM50,50E16LE10D2NG10 

DNG10DNG10DNG10U4NR8DNR8DNR8DNRS 

DR8NE8UNE8UNE8BM50 , 50ND8L2D8BD4B 

R4E6D6LNU6LNU4LNU2D2 " 

2310 DRRW"BR8BU4E4RN64RD3R4NE6RE 

6U3" 




1 28 , 96 ) , 76+1 , 1 , - 85 , - 54 , . 55 : NEXT 

2330 M*="R4DNL6R6DDNL4R12UR6UR4 

2340 DRRW " BM90 , 30 " +M*+ " BM90 ,31"+ 

M* 

2350 DRRW"BM96,40 ,, +M*+"BM96,41" + 

M* 

DRRW"BM110,50"+M*+"BM110,51 

DRRW"BM114,60"+M*+"BM114,61 

DRRW"BM112,70"+M*+"BM112,71 

DRRW " BM106 , 82U4RD4RU4ED4EU4 

2400 DRRW"BM72,40E2RG2RE2D2" 

2410 DRRW"BM48,94NF16RNF16RNF16R 

NF16RF16NL4DNL3R4DNL5R2NU6RNU6RN 

U6" 

2420 F0RI=93T095:CIRCLE(106,I),4 

0,1,.5,.2,.4:NEXTI 

2430 F0RI=103T0106: CIRCLE (148, I) 

,20,1,1.1,.2,.48:NEXTI 



2360 
"+M* 
2370 
"+M* 
23S0 
"+M* 
2390 
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2440 F0RI=128T0131 : CIRCLE ( 170 , I ) 

,20,1, .4, .6, .95:NEXTI 

2450 F0RI=122T0124 '.CIRCLE ( 199 , 1 ) 

,20,1, .4,-1, .38:NEXTI 

2460 DRRWBM204 , 134NF10RNF10RNF1 

0RF10NR10UNR10UR10NHSRNH8RNH8RH3 

BL6BU4NRSUNR8UNR8URSNH5UNH5UNH5" 

2470 F0RI=92T094 : CIRCLE ( 127 , I ) , 3 

0,1,-4,-6, -9:CIRCLE(164,I+8),26, 

1,-8,-65, -85:CIRCLE(190,I+4) ,28, 

If • o j ■ o / i • uD 

2480 CIRCLE (190,1+1 A) ,30,1,-6,-7 

, -9:CIRCLE( 178, 1+50) ,30,1,1.8,-7 

5, .9:CIRCLE(180,I+53) ,30,1,1-3, - 

75, -9:NEXTI 

2490 DRRW"BM204,11SNR6DR6DL4R6DL 

4R6BM204 , S4NE5RNE5RNE5RNE5BR4BD2 

NE5RNE5RNE5RNE5BD2BL4F4R4E4DG4L4 

H4DF4R4E4" 

2500 F0RI=1T03: CIRCLE (170,72+1) , 

17,1, -6, -5, -99:CIRCLE(150,48+I) , 

17,1 i -6, .6,1-1: CIRCLE (177, 58+1) , 

17,1, -6, .7, -99:NEXT 

2510 PM0DE4,1 

2520 F0RY=0T0176STEP176:FQRI=0T0 

10STEP10 : LINE ( 10+1 , Y+7-I/10 ) - ( 24 

5-I,Y+7+I/10) ,PSET,BF:NEXTI,Y 

2530 F0RI=1T0256STEP2 : LINE ( I , ) - 

(1,192) , PRESET: NEXT 

2540 F0RI=84T0S7 : I$=STR$ ( I ) 

2550 DRRW"BM"+I$+" , 146S5U4H3U3BR 

6BDU3H2BD16BR10U4H2U4E4BR6BD6F2D 

8BU12U4E3BU2BR4F4D2G2BD2BR4G4D2B 

D4BR3ND4E7U4BR6NE3D3BR3ND6BR6E4U 

2BR4BD6D4G2D4BL18BD4U6S4" 

2560 NEXTI 

2570 F0RI=80T0177STEP2 : LINE (1,12 

8)- (I, 158) , PRESET: NEXT 

2580 LINE ( 10 , 96 ) - ( 28 , 96 ) , PSET : LI 

NE(20,95)-(2S,97) ,PSET,BF 

2590 LINE ( 245 , 96 ) - ( 225 , 96 ) , PSET : 

LINE ( 225 , 95 ) - ( 235 , 97 ) , PSET , BF 

2600 LINE (68, IS) -(135,0) , PRESET, 

BF 

2610 PM0DE3,1 



2620 DRRWBM74, 12C4R6U4NL4U4NL6B 

R6D3R6U4NL6U4NL6BR14NR6D4R6D4NL6 

BR6USR6D4L6D4BR12NR6U4NR6U4R6BR6 

NR6D3R6BR6NUSBR6U8R6D4NL6D4BR6NU 

SR6" 

2630 PM0DE4,l:F0RI=68T0184STEP2: 

LINE ( I , ) - ( I , IS ) , PRESET : NEXT 

2640 F0RI=0T030STEP2 : LINE ( I , 93 ) - 

(1,97) , PRESET: LINE ( 1+224, 93 )-(I+ 

224 , 97 ) , PRESET : NEXT 

2650 X*=INKEY$:IFX$=CHR$(13) THE 

N 280 ELSE 2650 

2660 PM0DE3,1 

2670 PCLS1:SCREEN1,0 

2680 FOR Y=l TO 255 

2690 N=RND(2)+2:Q=RND(2)-1 

2700 PM0DE3,5:PCLS1 

2710 R$="L8D12F4GSHSE4U36E12F12D 

36F4G8H8E4U12BU8U10HSD1SRS" 

2720 C$="H12U36E12F12G8H6D32E6F3 

G12" 

2730 D$="HSE4U36H4E3R14FSD44GSL1 

4BU9BR4U42R5F4D34G4L5" 

2740 DRRW "C2" 

2750 DRRW"SSBM42,90"+R* 

2760 DRRW"BM90,138"+C$ 

2770 DRRW"BM150,13S"+D* 

2780 DRRW "BM226, 138 "+C$ 

2790 DRRW"BM136,50L10G6R4G6R4G6M 

122 , 70L3M130 , 60L3M136 , 50S4 " 

2800 P0KE17S,Y 

2310 PRINT (30,30) , ,2 

2820 PRINT (90, 24) , ,2 

2S30 PRINT ( 120 , 54 ) , , 2 

2S40 PRINT ( 150 , 24 ) , , 2 

2850 PRINT (230,24 ), ,2 

2860 FOR U=l TO 4 : FCOPY U+4 TO U 

:NEXT U 

2870 PMODE 3 , 1 : SCREEN1 , Q 

2880 X$=INKEY$:IF X$=CHR$(13) TH 

EN 280 

2890 NEXT Y 

2900 GOT02660 

2910 PCLERR3:G0T0100 



EDUGAGIONAIi 



RESOLUQAO 
DE TRIANGULOS 



Com esic programa podcmos, atra- 
vcs de ires dados, enconlrar os tres'la- 
dos e os ires Sngulos dc urn iriangulo 
cmalqucr. 

Apos a digiiacao do programa e a cn- 
tradada insirucan RUN, aparecera uma 
indagacao sobrc que lipo decalculo de- 
vc ser executado, devendo-se responder 
R, para calculos em radianos, e G, pa- 
ra caleulos em graus. 



GERACAO PROLOGICA 



A seguir, aparecerao cinco opcoes, 
correspondentes aos tipos de triangulos. 
Para sclcciona-las, basta cligiiar o nii- 
merc i orrcspondente. Depcndcndo da 



opcao escolhida, difcrcnies informa- 
cocs dcvem scr fornccidas ao com- 
puiador. 

Depois da cntrada dc dados, o com- 



putador apresentara, na tela, os resul- 
lados decalculos oblidos. Sera apresen- 
tado, lambem, o calculo da area do 
triangulo. 



10 ' ***##*****•***#*■***#******** 
20 '* RESOLUCAO * 

30 '* DE * 

40 '* TRIANGULOS * 

50 '* CCP-SOO E CP-500 MSO) * 
60 '*::::::: :MAURICI0: ::::::: :* 
70 '*****************#****#**** 
SO CLS : RAD=0 . 0174532925 : INPUT"0 
CALCULO DEVERA SER FEITO, Eh GR 
RUS OU RRDIRNOS (G/R) ";C$ 
90 L$=" LRD0":R*=" RNGULO":DIM X 
(5) :CLS 

100 CLS: FDR M=l TO 5 : X ( M ) =M :NEXT 

M:PRINT X(l) ;L$jL$;L$:PRINT X(2 

) 5 R* ; L$ ; R* : PRINT X ( 3 ) j L$ ; R$ ; R$ : P 

RINTX(A) ;L$;A$;L$:PRINTX(5) ;L$;L 

$;A* 

110 PRINT: INPUT "QURL fl OPCRO ESC 

OLHIDR (DIGITE NUMERO ) " ; P : IF 

P<1 OR P>5 THEN 110 

120 ON P GOTO 140 1 290 , 360 , 400 , 44 



130 STOP 

140 INPUT"LRDO 1" ;Sl: INPUT "LRDO 

2";S2 
150 INPUT "LRDO 3";S3:F=0 
160 P=(Sl+S2+S3)/2 

170 lR3=SQR ( P* ( P-S2 ) / ( S1*S3 ) ) : S=R 
3:G0SUB 660 

ISO IF C$="R" THEN R2=2*W ELSE R 
3=2*Y 

190 R2=SQR(P#(P-S1)/(S2*S3) ) :S=R 
2:G0SUB 660 

200 IF C$="R" THEN R2=2*W ELSE R 
3=2*Y 

210 IF F=l THEN 230 
220 GOSUB 250 
230 GOSUB 570 
240 GOTO 100 

250 R1=-(C0S(R3+R2) ) :S=R1: GOSUB 
660 

260 IF C*="R" THEN R1=W ELSE Rl= 
Y:F=0: RETURN 
270 RETURN 
2S0 STOP 

290 INPUT "RNGULO 1";R1: INPUT "L 
RDO l";Sl: INPUT "RNGULO 3";R3 
300 IF C*="R" THEN Rl=fll/RRD AND 

R3=R3/RRD 
310 R2=-(C0S(R3+R1) > :S=R2: GOSUB 
660 
320 IF C$="R" THEN R2= ELSE R2=Y 



330 S2=S1*SIN(R3)/SIN(R2) :S3=S1* 

COS ( A3 ) +S2*C0S ( A2 ) 

340 GOSUB 570 

350 GOTO 100 

360 INPUT"LADO 1"; Si: INPUT "ANGU 

LO l";Al:INPUT"ANGULO 2";A2 

370 IF C$="R" THEN A1=A1/RAD AND 

A2/P.AD 
3S0 A3=-(C0S(A2+A1) ) :A3=S: GOSUB 
660 

390 IF C$="R" THEN A3=W ELSE A3= 
Y:GOTO 330 s 
400 INPUT "LADO 1 " ;S1 : INPUT" ANGUL 
l";Al:INPUT"LADO 2";S2 
410 IF C*="R" THEN A1=A1/RAD 
420 S3=SQR ( Sl"-2+S2"-2-2*Si*S2*C0S 
(Rl) >:F=1 
430 GOTO 160 
440 INPUT "LADO 1" ;S1 : INPUT"LADO 

2" ;S2: INPUT" ANGULO 2";A2 
450 IF C*="R" THEN A2=A2/RAD 
460 A3=(S2/S1*SIN(A2) ) :A3=S:G0SU 
B 650 T 

470 IF C*="R" THEN A3=W ELSE A3= 
Y: GOSUB 250 

4S0 S3=S1*C0S<A3)+S2*C0S(A2) 
490 IF S2<=S1 THEN 340 
500 GOSUB 570 

510 A3=- ( COS ( A3 ) ) : A3=S : GOSUB 660 
520 IF C*="R" THEN A3=W ELSE A3= 
Y: GOSUB 250 

530 S3=S1*C0S(A3)+S2*C0S(A2) 
540 GOSUB 570 
550 GOTO 100 
560 END 
570 CLS 

5S0 PRINT "LADO 1=" j SI : PRINT" ANG 
ULO l="jAl 

590 PRINT"LADO 2=";S2:PRINT "ANG 
ULO 2=";A2 

600 PRINT "LADO 3=";S3:PRINT "AN 
GULO 3="?A3 

610 H=S1*S3*SIN( A3 )/2: PRINT "ARE 
A=";H 

620 PRINT: INPUT "OUTRO CALCULO (S/ 
N)";K$:IF K$="S" THEN RUN: CLS: PR 
INT"********FIM DO PROGRRMR***** 
*•*•*■*" 
630 END 

640 'Y=DEG W=RAD 

650 GOSUB 640 :Y=90-Y:W=1- 570796- 
W: RETURN 
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660 'RRCCOS SUBROTINR 

670 X=S:IF RBS( S )<= .707107 THEN 

730 

630 X=1-S"2:IF X<0 THEN PRINT S; 

"ESTR FORR DOS PRRRMETROS : STOP 
690 IF X=0 THEN W=90/57 .29577951 

:GOTO 760 

700 W=X/2:Z=0 

710 Y=(X/W-W)/2:IF (RBS < Y ) < • 1E-8 



JOGO 



)RND(Y=Z) THEN X=N:BOTO 730 

720 W=W+Y:Z=Y:GOTO 710 

730 Y=X+ ( X A 3 > /6+ ( X~5 ) * . 075+ ( X'^7 ) 

♦A-A6A2S6E-2 

740 W=Y+(X-~9)*3.033194E-2 

750 IF RBS(S) ) -707107 THEN W=l-5 

70796-N 

760 Y=W*57. 29577951 '.RETURN 



BOLICHE 



Teste sua habilidade coin este emo- 
cionante jogo de bolichc, ondc voce tern 
conirole total sobre o jogador, poden- 
do ate dar efcito na bola. 

Como no jogo real, voce tern duas 
chances para derrubar os dez pinos no 



;P 400 COLOR 

final da pista. Se conseguir na primei- 
ra, voce fara urn Strike; na segunda, vo- 
ce fara um Spare. 

Para controlar o jogador e dar efei- 
to na bola, use o joystick direito e aper- 
te o botao para lanca-la. Assim que a 



PARTE I 

bola cstivcr rolando pcla pista, acionc 
o joystick para cima ou para baixo c ela 
comecara a fazer uma lcve curva. Mas, 
atenciio! Uma vez dado o efeito, nao se 
podera mais corrigi-lo. 
Maos ao teclado e Strike] 



10 
20 
30 

•'40 

50 
60 
70 
SO 
90 
100 



' **************************** 
'* * 

'* BOLICHE * 
'* * 

'* (CP-400 COLOR ) * 
'* * 

'*::::::: :MRURICI0: :.::::'.::* 
' **************************** 
PM0DEl:PCLERR2 
B=l:F=l 



110 GOSUB 1060:GOSUB120:GOSUB112 

0:G0T01310 

120 DIN RK1S), R2(1A), R3(1A),R 

A(1A> ,B(1A) ,CK1A) ,D(13> ,E(1A) , 

K(10), KK10), K2(10) 

130 PM0DE1 

140 DRTR 160,100,172,88,172,112, 

184 , 76 , ISA , 100 , 134 , 126 , 196 , 62 , 19 

6 , 86 , 196 , 112 , 196 , 136 

150 FOR V=1T010:RERD K1(V):RERDK 

2<V) :NEXT V 

160 DRRW"BMA0,50C3ND2R2F2G2D2R6C 

AR2C3BLSD2NF6D6" 

170 DRRW " BM AO , 20C3ND2R2F2G2D2R6C 

4R2C3BLSD2ND6F ADZ " 

ISO DRRW"BMA0,80C3ND2R2F2G2D2R6C 

AR2C3BLSD8R2UA" 

190 DRRW'BMAO, 110C3ND2R2F2G2D2R6 

CAR2C3BLSD2FAD2BLABUAD2G2 " 

200 DRRW " BM70 , 50C3ND2R2F2G2D2RAC 

ANF2C3BLAD2ND6FAD2" 

210 DRRW"BM100,50C3ND2R2F2G2D2R2 
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FACAF1C3BH5L2D2FAD2BLABUAD2G2" 
220 DRRW"BM130,50C3ND2R2F2G2G2D2 
D2BL2CAF2C3BRANH2D2BLABUAD2G2" 
230 DRRW"BM161,50C3ND2R2F2GALACA 
BG2NG1C3BR6BU2D2FAD2BL3E4U2" 
240 GET < 36 , 50 ) - < 50 , 6A ) , Rl , G : GET ( 
36 , 20 ) - ( 50 , 3A > , R2 , G : GET ( 36 , 78 ) - ( 
50 , 96 ) , R3 , G : GET ( 36 , 1 10 ) - ( 50 , 124 ) 
, RA , G : GET < 66 , 50 ) - < SO , 6A ) , B , G : GET 
( 96 , 50 ) - ( 1 10 , 6A ) , C 1 , G : GET ( 122 , 50 
) - ( 1 AO , 6A ) , D , G : GET ( 152 , 50 ) - ( 166 , 
6A) ,E,G 
250 RETURN 

260 Z=0 : PM0DE1 , 1 : PCLS : SCREEN1 , 1 : 
DRRW " BM6A , S0C2R190 ; BD32L190BR16C 
3BU7R2BUAR2BUAR2BUABLAR2BUABLAR2 
" :PSET(232,S0,3) : PSET (232 , 112 ,3) 
270 IFP(1)=0THENPSET(236,96,A) 
2S0 IF P(2)=0THENPSET<2A0,92,A) 
290 IF P(3)=OTHENPSET(2AO,100,A) 
300 IFP ( A ) =OTHENPSET ( 2AA , 88 , A ) 
310 IFP(5)=0THENPSET(2AA,96,A) 
320 IFP ( 6 ) =OTHENPSET ( 2AA , 10A , A ) 
330 IFP(7)=0THENPSET(2AS,8A,A) 
3AO IFP(S)=0THENPSET(2A8,92,A) 
350 I FP ( 9 ) =OTHENPSET ( 2A8 , 100 , A ) 
360 IFP ( 10 ) =OTHENPSET ( 2A8 , 103 , A ) 
370 X=16:Y=90 

380 PUT(X,Y)-(X+1A,Y+18) ,R3,PSET 
390 P5=PEEK ( 65230 ) :IFP5=126 OR P 

Continua mi proximo niimero. 

geracao prologica 



